أخواني الأفاضل
لو تكرمت لدي مشكلة في تعبئة قائمة الـ ComboBox ببيانات أحد أعمدة الـ DataBase من نوع Access حيث أنه يوجد قيم فارغة لاأريدها أن تظهر في هذه القائمة. لدي الكود التالي الذي أستخدمه للتعبئة التلقائية لكنه لايفي بالغرض
لو تكرمت لدي مشكلة في تعبئة قائمة الـ ComboBox ببيانات أحد أعمدة الـ DataBase من نوع Access حيث أنه يوجد قيم فارغة لاأريدها أن تظهر في هذه القائمة. لدي الكود التالي الذي أستخدمه للتعبئة التلقائية لكنه لايفي بالغرض
كود :
SQLStr = "Select * from Table_Item"
Dim cmd As New OleDb.OleDbCommand(SQLStr, dbConn)
dr = cmd.ExecuteReader
CBox1_Edit.Items.Clear()
While dr.Read()
If CBox1_Edit.FindString(dr(2)) < 0 Then
CBox1_Edit.Items.Add(dr(2)).ToString)
End If
End While
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }