حفظ بيانات في الداتا ست قبل حفظها في قاعدة البيانات
Public Sub AddDetailToGrid()
RecNo = 0
Dim Dr As DataRow = DataSetSale.Tables("BillDetails").NewRow
Dr.Item("Serial") = "0"
Dr.Item("Item_Num") = Trim(TextBox110.Text)
Dr.Item("ItemName") = Trim(TextBox111.Text)
Dr.Item("Quntit") = Trim(TextBox112.Text)
Dr.Item("Price") = Trim(TextBox113.Text)
Dr.Item("TotaItem") = Trim(TextBox114.Text)
Dr.Item("M_Date") = Now
Dr.Item("User") = UserName
Dr.Item("RecordType") = 1
End Sub