السلام عليكم ورحمة الله وبركاته
اعد برنامج لبيانات محل
اريد ان اعمل تعديل على البيانات بناء على العناصر المحدده في الكومبو بوكس
كالتالي
اثنين كومبو بوكس الاول يمثل الاعمده(الحقول) والثاني يمثل الصفوف (السجلات)
وتكست بوكس واحد تكتب فيه المعلومات التي نريد ان نستبدلها
اريد ان اختار الحقل والسجل من الكومبو بوكس واكتب التعديلا بالتكست بوكس اضغط على زر تعديل ثم زر حفظ
في class
كود لتعبئة الكمبو بوكس الاول
Sub fillcombo(ByVal f As ComboBox)
f.Text = ""
Dim i As Integer
For i = 0 To ds.Tables("dm").Columns().Count - 1
f.Items.Add(ds.Tables("dm").Columns(i).Caption)
Next
كود تعبئة الكمبوبوكس الثاني
Sub fillcombo2(ByVal f As ComboBox)
f.Text = ""
Dim i As Integer
For i = 0 To ds.Tables("dm").Rows().Count - 1
f.Items.Add(ds.Tables("dm").Rows(i)("branch"))
Next
End Sub
ثم اجري لهم استدعاء عند تحميل الفورم
كود التعديل ايضا بـ class
Sub editrow(ByVal f As Form12)
Dim x As DataTable = ds.Tables("dm")
Dim a As DataRow = x.Rows(f.ComboBox2.SelectedIndex)
a(f.ComboBox1.SelectedItem) = f.TextBox1.Text
End Sub
استدعي في البوتن الخاص بالتعديل
كود الحفظ بـ class
Sub sav()
If ds.HasChanges Then
Dim myc As New OleDb.OleDbCommandBuilder(ad)
Dim x As DataSet = ds.GetChanges
ad.Update(x, "dm")
ds.Tables("dm").AcceptChanges()
End If
End Sub
استدعي الاجراء في زر الحفظ
يظهر لي خطأ ولا اعلم ما السبب
