[اسامه الهرماوي]

السلام عليكم...
أن تجعل للمواد المرتبطة بالفاتورة (رقم_الفاتورة) ثم عند إرادة التعديل يتم جلب بيانات الفاتورة بهذا الكودلا ويجب أن يكون هناك جدولين جدول للتعديل وجدول به البيانات ويمكن الإستغناء عن اسما الحقول بالنجمة(*).

كود :

If con.State = ConnectionState.Closed Then
               con.Open()
           End If

           Dim cmd As New SqlCommand
           cmd.Connection = con
           cmd.CommandText = "INSERT INTO basket SELECT كود_البيع,الباركود,صنف_المادة,اسم_المادة,الوحدة,سعر_الشراء,سعر_البيع,الكمية,إجمالي_السعر,ملحوظة,الربح,المستخدم,الوقت,اليوم,التاريخ FROM sale Where كود_البيع=" & Val(TextBox3.Text) & ""
           cmd.ExecuteNonQuery()
           cmd.CommandText = "Delete From sale where كود_البيع=" & Val(TextBox3.Text) & ""
           cmd.ExecuteNonQuery()
           con.Close()