20-04-20, 11:02 PM
21-04-20, 12:09 AM
باعتبار العمود الرابع كمثال على الداتاجريد فيو
كود :
Try
ComboBox1.Items.Clear()
For Each Rrow In DataGridView1.Rows
ComboBox1.Items.Add((Rrow.Cells(3)).Value).ToString()
Next
Catch ex As Exception
XtraMessageBox.Show("خطأ غير متوقّع" & ex.Message)
End Try21-04-20, 01:28 AM
الف شكر والله ريحتنى كتير
الكود الخاص بحضرتك مظبطش معايا ولما وضعت اخر جمله الاتصال بالجدول ظبطت معايا
ElseIf ComboBox1.SelectedItem = ("يوليو2019") Then
Dim cmd As New OleDbCommand
Dim dt As New DataTable
cmd = New OleDbCommand("select * from يوليو2019", Con)
Con.Open()
dt.Load(cmd.ExecuteReader)
Con.Close()
DataGridView1.DataSource = dt
DataGridView1.Refresh()
For Each Rrow In DataGridView1.Rows
ComboBox5.Items.Add((Rrow.Cells(1)).Value).ToString()
Next
الكود الخاص بحضرتك مظبطش معايا ولما وضعت اخر جمله الاتصال بالجدول ظبطت معايا
ElseIf ComboBox1.SelectedItem = ("يوليو2019") Then
Dim cmd As New OleDbCommand
Dim dt As New DataTable
cmd = New OleDbCommand("select * from يوليو2019", Con)
Con.Open()
dt.Load(cmd.ExecuteReader)
Con.Close()
DataGridView1.DataSource = dt
DataGridView1.Refresh()
For Each Rrow In DataGridView1.Rows
ComboBox5.Items.Add((Rrow.Cells(1)).Value).ToString()
Next