(06-04-20, 12:11 PM)عاشق الرسول كتب : السلام عليكم ورحمة الله وبركاته
احبائنا
أريد إدراج تشيك لسيت بوكس داخل دات جريد لاختيارات متعدد في خليه
وبحثت عن الموضوع ووجدته في أحد المواقع الانجليزية بس للاسف لم استطع استيعابه
فهل من مساعدة في هذا الموضوع لو تكرمتم
وهذا رابط الموضوع اللي وجدته
ولو أحد عنده مثال مشروح للموضوع
و جزاكم الله خيرا



https://www.codeproject.com/Questions/38...gridviewco

(07-04-20, 05:12 AM)عاشق الرسول كتب :

(06-04-20, 12:11 PM)عاشق الرسول كتب : السلام عليكم ورحمة الله وبركاته
احبائنا
أريد إدراج تشيك لسيت بوكس داخل دات جريد لاختيارات متعدد في خليه
وبحثت عن الموضوع ووجدته في أحد المواقع الانجليزية بس للاسف لم استطع استيعابه
فهل من مساعدة في هذا الموضوع لو تكرمتم
وهذا رابط الموضوع اللي وجدته
ولو أحد عنده مثال مشروح للموضوع
و جزاكم الله خيرا



https://www.codeproject.com/Questions/38...gridviewco

السلام عليكم يا شباب بجد محتاج المساعدة
أنا وصلت لهذا الكود ولكن هل ممكن أقوم بعبئتها من جدول

كود :

   Public Sub New()
       InitializeComponent()
       DataGridView1.AllowUserToAddRows = False
   End Sub





   Private Function CreateData() As DataTable
       Dim T_Table1 As DataTable = New DataTable()
       T_Table1.Columns.AddRange(New DataColumn() {New DataColumn("item1"), New DataColumn("checkedlistbox "), New DataColumn("item2")})
       T_Table1.Rows.Add(New Object() {"1", "", "2"})
       T_Table1.Rows.Add(New Object() {"2", "", "2"})
       T_Table1.Rows.Add(New Object() {"3", "", "3"})
       Return T_Table1
   End Function

   Private Sub INVO_FRM_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       Dim DA1 As New OleDb.OleDbDataAdapter("SELECT SUB FROM SUB_TBL", con)
       con.Open()
       Dim ds As New DataSet
       DA1.Fill(ds, "SUB_TBL")
       DataGridView1.DataSource = ds.Tables("SUB_TBL")
       'Me.dataGridView1.DataSource = CreateData()

       For i As Integer = 0 To DataGridView1.RowCount - 1
           DataGridView1.Rows(i).Height = 150
           Dim clb As CheckedListBox = New CheckedListBox()
           clb.Items.Add(ds.Tables)
           'clb.Items.Add(2)
           'clb.Items.Add(3)
           'clb.Items.Add(4)
           'clb.Items.Add(5)
           Me.dataGridView1.Controls.Add(clb)
           clb.Location = Me.DataGridView1.GetCellDisplayRectangle(0, i, True).Location
           clb.Size = Me.dataGridView1.GetCellDisplayRectangle(0, i, True).Size
       Next

   End Sub