ما حل هذه الرسالة

جملة الحفظ خطأ

ممكن هناك حقل رقمي وانت تتعامل معه كنص او العكس .

' كود الحفظ والتعديل

Try

Application.DoEvents()

If Label7.Text = "" Then

'كود اضافة سجل جديد

Dim Add_NewRow As DataRow = DataSet1.Tables("item").NewRow()

' If TextBox1.Text = "" Then Add_NewRow("name") = DBNull.Value Else Add_NewRow("name") = TextBox1.Text.Trim

If txtItemName.Text = "" Then Add_NewRow("itemname") = DBNull.Value Else Add_NewRow("itemname") = txtItemName.Text.Trim

If txtsril.Text = "" Then Add_NewRow("serial") = DBNull.Value Else Add_NewRow("serial") = txtsril.Text.Trim

If txthdd.Text = "" Then Add_NewRow("HDD") = DBNull.Value Else Add_NewRow("HDD") = txthdd.Text.Trim

If txtram.Text = "" Then Add_NewRow("RAM") = DBNull.Value Else Add_NewRow("RAM") = txtram.Text.Trim

If txtpro.Text = "" Then Add_NewRow("processor") = DBNull.Value Else Add_NewRow("processor") = txtpro.Text.Trim

If txtadd.Text = "" Then Add_NewRow("add") = DBNull.Value Else Add_NewRow("add") = txtadd.Text.Trim

If txtNote.Text = "" Then Add_NewRow("date") = DBNull.Value Else Add_NewRow("date") = txtNote.Text.Trim

DataSet1.Tables("item").Rows.Add(Add_NewRow)

'كود حفظ الاضافة

Validate()

DataAdapter.Update(DataSet1.Tables("item"))

DataSet1.AcceptChanges()

butsave.Text = " تعديل"

Con.Open()

DataSet1.Clear()

DataAdapter.Fill(DataSet1, "item")

Con.Close()

Me.BindingContext(DataSet1, "item").Position = Me.BindingContext(DataSet1, "item").Count - 1

'==================== متغير يكون بس ماقبل معي ========

Dim records, current As Integer

records = Me.BindingContext(DataSet1, "item").Count

current = Me.BindingContext(DataSet1, "item").Position + 1

Label12.Text = " عدد السجلات " & current.ToString & " من أصل " & records.ToString

' count()

' Cmb()

'=======================================================================

MsgBox("تـــم إضـــــافة العميل بنجاح ", 64, "نجاح")

Else

'كود معرفة رقم الصف الحالي في قاعدة البيانات

Dim Row_Num As Integer = Me.BindingContext(DataSet1, "item").Position

DataSet1.Tables("item").Rows(Row_Num).BeginEdit()

If txtItemName.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("itemname") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("itemname") = txtItemName.Text.Trim

If txtsril.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("serial") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("serial") = txtsril.Text.Trim

If txthdd.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("HDD") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("HDD") = txthdd.Text.Trim

If txtram.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("RAM") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("RAM") = txthdd.Text.Trim

If txtpro.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("processor") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("processor") = txtpro.Text.Trim

If txtadd.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("add") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("add") = txtadd.Text.Trim

If txtNote.Text = "" Then DataSet1.Tables("item").Rows(Row_Num).Item("date") = DBNull.Value Else DataSet1.Tables("item").Rows(Row_Num).Item("date") = txtNote.Text.Trim

' If Tet_item_name.Text ="" Then DataSet1.Tables("item").Rows(Row_Num)Item("name")=DBNULL.VALUE ELSE DataSet1.Tables("item").rows(row_num).Item("name")=Tet_item_name.Text.Teim

DataSet1.Tables("item").Rows(Row_Num).EndEdit()

Validate()

DataAdapter.Update(DataSet1.Tables(0))

DataSet1.AcceptChanges()

' count()

' Cmb()

'==================== متغير يكون بس ماقبل معي ========

Dim records, current As Integer

records = Me.BindingContext(DataSet1, "item").Count

current = Me.BindingContext(DataSet1, "item").Position + 1

Label12.Text = " عدد السجلات " & current.ToString & " من أصل " & records.ToString

'=======================================================================

MsgBox("تم التعــــديل بنــجاج", 64, "تعديل العملاء")

End If

Catch ex As Exception

MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try