[barawy]

اضف الزر إضافة الى شاشة البحث واضف اليه الكود النالى
*** بفرض ان نموذج الفاتوره يسمى FrmInvoice

كود :

Dim r As Integer = FrmInvoice.DataGridView1.Rows.count-1
FrmInvoice.DataGridView1.Rows.add()
FrmInvoice.DataGridView1.Rows(r).Cells(1).Value = me.DataGridView1.CurrentRow.Cells(1).Value
FrmInvoice.DataGridView1.Rows(r).Cells(2).Value = me.DataGridView1.CurrentRow.Cells(2).Value
FrmInvoice.DataGridView1.Rows(r).Cells(3).Value = me.DataGridView1.CurrentRow.Cells(4).Value
FrmInvoice.DataGridView1.Rows(r).Cells(4).Value = me.DataGridView1.CurrentRow.Cells(5).Value