السلام عليكم اخوانى المحترمين
انا مبتداء واحاول فى برنامج سوبر ماركت فكنت اريد ان اجعل زر الحفظ عندما اقوم بحفظ محتويات الفاتورة يقوم بالحفظ وعندما استدعى الفاتورة بعد الحفظ واقوم بالتعديل عليها فانة يقوم بحفظ نفس الفاتورة بعد التعديل فقط اى اريد زر الحفظ يقوم بالحفظ والتعديل ايضا
- انا عندى زر للحفظ اى يحفظ الفاتورة بدون ترحيل وزر لترحيل الفاتورة او اغلاقها عندما اقوم باغلاق الفاتورة او ترحيلها فاننى اقوم بالحفظ اولا ثم استدعى الفاتورة مرة اخرى لترحيلها اريد ان اجعل زر الترحيل يقوم بحفظ الفاتورة واغلاقها مباشرا اذا اردت اى اذا كنت متاكد اننى لم اقوم بالعديل على الفاتورة قبل الاغلاق
ودا كود الحفظ
اشكركم اخوانى
انا مبتداء واحاول فى برنامج سوبر ماركت فكنت اريد ان اجعل زر الحفظ عندما اقوم بحفظ محتويات الفاتورة يقوم بالحفظ وعندما استدعى الفاتورة بعد الحفظ واقوم بالتعديل عليها فانة يقوم بحفظ نفس الفاتورة بعد التعديل فقط اى اريد زر الحفظ يقوم بالحفظ والتعديل ايضا
- انا عندى زر للحفظ اى يحفظ الفاتورة بدون ترحيل وزر لترحيل الفاتورة او اغلاقها عندما اقوم باغلاق الفاتورة او ترحيلها فاننى اقوم بالحفظ اولا ثم استدعى الفاتورة مرة اخرى لترحيلها اريد ان اجعل زر الترحيل يقوم بحفظ الفاتورة واغلاقها مباشرا اذا اردت اى اذا كنت متاكد اننى لم اقوم بالعديل على الفاتورة قبل الاغلاق
ودا كود الحفظ
PHP كود :
'======= حفظ تفاصيل الفاتورة ===============
DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl", con)
DA.Fill(DT)
For I = 0 To dgv.Rows.Count - 2
Dim DR1 = DT.NewRow
If dgv.CurrentRow.Cells(10).Value = Nothing Then
dgv.CurrentRow.Cells(10).Value = 0
End If
DR1!BUYCODE = TXTID.Text
DR1!Code = dgv.Rows(I).Cells(0).Value
DR1!Name = dgv.Rows(I).Cells(1).Value
DR1!Price = Val(dgv.Rows(I).Cells(2).Value)
DR1!Unit = dgv.Rows(I).Cells(3).Value
DR1!Quant = dgv.Rows(I).Cells(4).Value
DR1!Cost_Unit = dgv.Rows(I).Cells(5).Value
DR1!Total = dgv.Rows(I).Cells(6).Value
DR1!Tax = dgv.Rows(I).Cells(7).Value
DR1!TaxVal = dgv.Rows(I).Cells(8).Value
DR1!DS = dgv.Rows(I).Cells(9).Value
DR1!DSVAL = dgv.Rows(I).Cells(10).Value
DR1!Stock = dgv.Rows(I).Cells(11).Value
DR1!QTY_IN = dgv.Rows(I).Cells(12).Value
DR1!RowNum = TextBox5.Text
DT.Rows.Add(DR1)
Dim CMD_ As New OleDb.OleDbCommandBuilder(DA)
DA.Update(DT)
Next
dgv.Enabled = False
DA = New OleDb.OleDbDataAdapter("SELECT * FROM t1", con)
DA.Fill(DT)
MessageBox.Show("تمت عملية حفظ فاتورة المشتريات بنجاح", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
Button1_Click(sender, e)
اشكركم اخوانى