كود الاضافه الى جدولين لوسمحتم

وما المشكلة التي واجهتك عندما حاولت تنفيذ ذلك؟!!

افضل لو تكتب ال schema الخاصة بالجداول

طيب من الممكن

أعمل insert statement لبيانات وأضفها في الجدول المحدد

وأخر لصافي

أما أذا كانت المشكله في الكود

فأعرضه

هذا هو كود الاضافه فى جددول المشتريات

Try

Dim dataset1 As New DataSet

Dim da As New OleDbDataAdapter

Dim i As Integer

For i = 0 To DataGridView1.Rows.Count - 2

Dim row As DataGridViewRow = DataGridView1.Rows(i)

Dim in_date As DataGridViewTextBoxCell = row.Cells(1)

Dim in_nosupp As DataGridViewTextBoxCell = row.Cells(2)

Dim in_supp As DataGridViewTextBoxCell = row.Cells(3)

Dim in_noitems As DataGridViewTextBoxCell = row.Cells(4)

Dim in_items As DataGridViewTextBoxCell = row.Cells(5)

Dim in_unit As DataGridViewTextBoxCell = row.Cells(6)

Dim in_unitprice As DataGridViewTextBoxCell = row.Cells(7)

Dim in_qau As DataGridViewTextBoxCell = row.Cells(8)

Dim in_total As DataGridViewTextBoxCell = row.Cells(9)

Dim in_cme As DataGridViewTextBoxCell = row.Cells(10)

Dim in_grandtotal As DataGridViewTextBoxCell = row.Cells(11)

Dim in_datein As DataGridViewTextBoxCell = row.Cells(12)

Dim in_dateout As DataGridViewTextBoxCell = row.Cells(13)

Dim sql As String = "insert into add_doc( in_date,in_nosupp,in_supp,in_noitems,in_items,in_unit,in_unitprice,in_qau,in_tot

al,in_cme,in_grandtotal,in_datein,in_dateout) values (#" & in_date.Value & "#, '" & in_nosupp.Value & "' , '" & in_supp.Value & "' , '" & in_noitems.Value & "' , '" & in_items.Value & "' , '" & in_unit.Value & "' , '" & in_unitprice.Value & "' , '" & in_qau.Value & "' , '" & in_total.Value & "' , '" & in_cme.Value & "' , '" & in_grandtotal.Value & "' , '" & in_datein.Value & "' , '" & in_dateout.Value & "')"

cm.CommandText = sql

cm.Connection = cnn

cm.ExecuteNonQuery()

Next

MsgBox(" تم اضافه الفاتوره بنجاح ")

DataGridView1.Rows.Clear()

Button2.Enabled = False

TextBox13.Text = 0

TextBox14.Text = 0

TextBox15.Text = 0

Catch ex As Exception

MsgBox(ex.Message)

Finally

End Try

ومحتاج اضيف هذه الحقول الى جدول العملاء supplierpay( in_supp,in_nosupp,in_date,in_item,in_grandtotal)

المشروع بالمرفقات

Mycompany.rar

من صعب علي فحص الكود هكذا

هل تظهر رساله معينه

نصيحة أستخدم البراميتر

الاخ الفاضل al_mohanaشكرا على مرورك الكريم

ممكن تحمل المشروع من المرفقات المشكله فى قاتوره المشتريات كود الاضافه من الداتا جريد الى قاعده االبيانات يعمل بصوره صحيحه والمشكله انا محتاج كود من خلاله استطيع اضافه فاتوره المشتريات فى جدول المشتريات وصافى الفاتوره فى جدول العملاء

بعدني لم أتصور الأشكاليه

نزلت المشروع بس صادفتني مشاكل في الجهاز لذلكك لم أطلع على الكود

اقتباس

ومحتاج اضيف هذه الحقول الى جدول العملاء supplierpay( in_supp,in_nosupp,in_date,in_item,in_grandtotal)

أطلعت على قاعدة البيانات

الجدول supplierpay

sup_no

sup_name

sup_date

sup_memo

sup_dibet

sup_crdit

هل تريد أضافة البيانات الموجود في الفورم

ألى هذه الحقول

طيب

يمكنك أن تأخذ نفس القيمه وأضافتها في جدولين مختلفين

أعمل insert للبيانات

 
insert into supplierpay( ) values ()

في نفس حدث الأضافة بعد insert الأولى

ما المشكله أذا أضفت هكذا

وعملها تنفيذ مختلف

cm.CommandText = SQL1

cm1.Connection = cnn

cm1.ExecuteNonQuery()

بتوفيق

الاخ al_mohana السلام عليكم ورحمه الله ويركاته

شكرا على مرورك واهتمامك

انا حاولت ولكن بيظهر خطا بان النحو خطاء

ممكن تجرب الكود ولو تجح معاك اجربه

وشكرا