بسم الله الرحمن الرحيم
الموضوع بسيط جداً
عايز أعمل update في أكثر من جدول (اعدل بينات صف)
الكوود
Sub up_date() Try Dim row As DataSet1.edu_bookRow row = Me.DataSet11.edu_book.FindByid(Me.ComboBox3.SelectedValue) row.B_baber = CInt(Me.TextBox3.Text) row.B_name = Me.TextBox1.Text row.B_size = Me.TextBox2.Text row.des = Me.TextBox6.Text Catch ex As Exception mes() End Try End Sub
الكود ده مش عايز يعمل تعديل خالص
برجاء أيجاد كود يقوم بعمل تعديل للبينات
شكرا