[mohamedassim]

السلام عليكم ورحمة الله

احاول استخدام هذا الكود لغرض حفظ البيانات وكن تظهر لي رسالة خطأ

 Dim Row As DataRow = dt.NewRow

        Row(0) = TxtCat.Text

        Row(1) = TxtCatName.Text

        Row(2) = Txtprofit.Text

        Row(3) = TxtCatNote.Text

        dt.Rows.Add(row)

        cmdb = New SqlCommandBuilder(adapter)

        adapter.Update(dt)

تظهر رسالة الخطا التالية

Severity Code Description Project File Line Suppression State
Error BC30456 'Row' is not a member of 'DataTable'. POSPharmacy_System G:\POSPharmacy_System\POSPharmacy_System\Catogary.vb 117 Active
Error BC30456 'Row' is not a member of 'DataTable'. POSPharmacy_System G:\POSPharmacy_System\POSPharmacy_System\Catogary.vb 114 Active
Error BC30456 'Row' is not a member of 'DataTable'. POSPharmacy_System G:\POSPharmacy_System\POSPharmacy_System\Catogary.vb 115 Active
Error BC30456 'Row' is not a member of 'DataTable'. POSPharmacy_System G:\POSPharmacy_System\POSPharmacy_System\Catogary.vb 116 Active

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم
تفضل التعديل

كود :

Dim last As Integer = dt.Rows.Count
       Dim Row As DataRow = dt.NewRow
       dt.Rows.Add()
       dt.Rows(last).Item("TxtCat") = TxtCat.Text
       dt.Rows(last).Item("TxtCatName") = TxtCatName.Text
       dt.Rows(last).Item("Txtprofit") = Txtprofit.Text
       dt.Rows(last).Item("TxtCatNote") = TxtCatNote.Text
     
       Dim cmdb As New OleDbCommandBuilder()
       cmdb = New OleDbCommandBuilder(adapter)
       adapter.Update(dt)
       dt.AcceptChanges()