احتاج مساعدة عاجلة .....في AccordionPane

Abdullah • منذ شهر

السلام عليكم ورحمة الله وبركاته

يوجد لدي  Wep Application احتااج مساعدة في تكملة برمجة اوامر AccordionPane بـ VB.net لاستدعاء وإضهار المرفقات 

استخدمت الاداة لإستدعاء مجموعة من الحقول من جدول واحد في قاعدة البيانات ... ( الاستدعاء بناء على رقم موحد ( (ViolationNO) )... كل شي تمام في استدعاء الامور النصية فقط

يوجد لدي حقل يحتوي على  " عناوين المرفقات فقط " ... المرفق يكون مخزن في مجلد عادي في المشروع Project .. لم استطع الوصول اليه او التعامل معه ...  مع العلم اني استخدمت Button , Image ... اذا

يوجد مفترح لشي افضل ... انا في انتظار الرد ... واذا في شي مو واضح ارجو التواصل في اي وقت 

تفضلو الكود ... 

 

 

 

Imports System.Data.SqlClient

Imports System.Data

Imports System.IO

Imports System.Drawing

Partial Class FrmViolation_V_Mail

    Inherits System.Web.UI.Page

    Dim PC As New Puplic_Class

    Dim PathLoad_1 As String

    Dim DocPathoLD As String

 

 

    Private Sub BindRepeater()

        Dim ObjDB As New DB_Operations

        Dim da As New SqlDataAdapter("SELECT * FROM VS_ViolationMail where Fld_ViolationNO='" & Session.Item("ViolationNO") & "'   ", ObjDB.ConDB)

        Dim ds As New DataSet

        da.Fill(ds)

        ObjDB.ConDB.Close()

        If ds.Tables(0).Rows.Count > 0 Then

 

            Dim i As Integer

            For i = 0 To ds.Tables(0).Rows.Count - 1

                Dim pane1 As New AjaxControlToolkit.AccordionPane()

                Dim btn1 As Button = New Button

 

 

                btn1.ID = "btn" & i

                btn1.Text = " لاستعراض المرفق اضغط"

                btn1.ControlStyle.CssClass = "BtnClose"

                btn1.HasAttributes.ToString()

                AddHandler btn1.Click, AddressOf btn1_Click

 

 

                pane1.ID = "pane" & i

                pane1.HeaderContainer.Controls.Add(New LiteralControl(ds.Tables(0).Rows(i).ItemArray(4).ToString() & " , "))

                pane1.HeaderContainer.Controls.Add(New LiteralControl(ds.Tables(0).Rows(i).ItemArray(0).ToString() & " , "))

                pane1.HeaderContainer.Controls.Add(New LiteralControl(ds.Tables(0).Rows(i).ItemArray(5).ToString()))

                pane1.ContentContainer.Controls.Add(New LiteralControl(ds.Tables(0).Rows(i).ItemArray(1).ToString() & " , "))

                pane1.ContentContainer.Controls.Add(New LiteralControl(ds.Tables(0).Rows(i).ItemArray(2).ToString() & " , "))

                pane1.ContentContainer.Controls.Add(btn1)

 

                Accordion1.Panes.Add(pane1)

                BtnSave.Enabled = True

            Next

            TxtNote.Text = ""

        End If

 

        

    End Sub

 

 

 

 

 

 

 

كلمات دليلية: accordionpane

ساعد بالإجابة

"إن في قضاء حوائج الناس لذة لا يَعرفها إلا من جربها، فافعل الخير مهما استصغرته فإنك لا تدري أي حسنة تدخلك الجنة."

لايوجد لديك حساب في عالم البرمجة؟

تحب تنضم لعالم البرمجة؟ وتنشئ عالمك الخاص، تنشر المقالات، الدورات، تشارك المبرمجين وتساعد الآخرين، اشترك الآن بخطوات يسيرة !