(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