[salah525]

(05-11-23, 03:15 AM)justforit كتب : الاخطاء كثيرة
احاول اصلح قدر مااستطيع
واعتذر عن التاخير

---

أظن (كبداية) تحتاج تعديل الاجراء التالي:

PHP كود :

Public Sub fillcmb_tbl_Social_status(ByVal cmb As ComboBox)
     Dim DT As New DataTable
     Dim DA As New OleDbDataAdapter
     DT.Clear()
     DA = New OleDbDataAdapter("Select * FROM tbl_Healthy", Con)
     DA.Fill(DT)
     If DT.Rows.Count > 0 Then
         cmb.DataSource = DT
         cmb.DisplayMember = "Social_status"
     Else
         cmb.DataSource = Nothing
     End If
 End Sub 


بان تمرر اسم الجدول واسم العمود حتى يكون الاجراء فعلي
لاحظ انه عند مناداة الاجراء فهو يطلب عمود قد لا يكون موجود بالجدول المحدد بالاستعلام.
اذا لم تتضح الفكرة اخبرني لكي ارفع لك المثال معدل

انا اسف ممكن ترفع المثال معدل