المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
السلام عليكم
عندما ننشئ عمود ضمن شبكة الكرايد يعطينا خيارات من ضمنها خيار كومبو بوكس
كيف املئ هذا الكومبو الموجود ضمن الشبكة من بيانات جدول محدد
شكرا
المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
10-02-15, 07:26 AM
(آخر تعديل لهذه المشاركة : 10-02-15, 07:52 AM {2} بواسطة mh66.)
ماشاء الله عنك اخ سعود
زادك الله علما
معليش اتحملني شوي
انا املئ الكومبو بهذه الطريقة
'***************************************************************
'تحميل كومبو الأقسام الموجودة
Me.Cursor = Cursors.WaitCursor
If Con.State <> ConnectionState.Open Then
GeneralConnection()
End If
If Con.State = ConnectionState.Open Then
Sql = Nothing
Sql = "SELECT na FROM NQsm"
Dim Cmd1 As New SqlCommand(Sql, Con)
Dim DR1 As SqlDataReader = Nothing
DR1 = Cmd1.ExecuteReader
Do While DR1.Read()
ComboBox1.Items.Add(DR1.Item("na"))
Application.DoEvents()
Loop
DR1.Close()
Cmd1.Cancel()
Con.Close()
Me.Cursor = Cursors.Default
End If
'***************************************************************
ماذا اضع بدل هذا السطر
ComboBox1.Items.Add(DR1.Item("na"))
اذا كان اسم شبكة الكرايد dg1
واريد ملئ العمود السادس
شكرا
المشاركات : 63
المواضيع 26
الإنتساب : Jan 2014
السمعة :
3
الشكر: 60
تم شكره 44 مرات في 10 مشاركات
شكرا جزيلا على التوضيح
وفقك الله