+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج كود لتعبئه الكمبوبوكس من الداتا جريد فيو (/showthread.php?tid=34402)
محتاج كود لتعبئه الكمبوبوكس من الداتا جريد فيو - حسين ادريس - 20-04-20
السلام عليكم
سؤال من فضلكم
محتاج كود لتعبئة الكمبوبوكس من الداتا جريد فيو وليس من قاعده البيانات
RE: محتاج كود لتعبئه الكمبوبوكس من الداتا جريد فيو - عبد العزيز البسكري - 21-04-20
باعتبار العمود الرابع كمثال على الداتاجريد فيو
كود :
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 TryRE: محتاج كود لتعبئه الكمبوبوكس من الداتا جريد فيو - حسين ادريس - 21-04-20
الف شكر والله ريحتنى كتير
الكود الخاص بحضرتك مظبطش معايا ولما وضعت اخر جمله الاتصال بالجدول ظبطت معايا
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