26-12-16, 05:13 AM
جربت هذا الكود لم ينجح
PHP كود :
[align=center] Dim Adp As New SqlClient.SqlDataAdapter("select* from SaveInvoice1", conn)[/align]
[align=center][/align]
[align=center] Dim Ds As New DataSet[/align]
[align=center][/align]
[align=center] Adp.Fill(Ds)[/align]
[align=center][/align]
[align=center] Dim Dt = Ds.Tables(0)[/align]
[align=center][/align]
[align=center] For i = 0 To DGVInvoice.Rows.Count - 1[/align]
[align=center] Dim dr = Dt.NewRow[/align]
[align=center] dr = Dt.NewRow[/align]
[align=center] dr!NumInvoice = TxtNumInvoice.Text[/align]
[align=center] dr!NumCut = DGVInvoice.Rows(i).Cells(0).Value[/align]
[align=center] dr!Price = DGVInvoice.Rows(i).Cells(1).Value[/align]
[align=center] dr!quantitySels = DGVInvoice.Rows(i).Cells(2).Value[/align]
[align=center] dr!TotalCut = DGVInvoice.Rows(i).Cells(3).Value[/align]
[align=center][/align]
[align=center] Dt.Rows.Add(dr)[/align]
[align=center][/align]
[align=center] Dim cmd As New SqlClient.SqlCommandBuilder(Adp)[/align]
[align=center] Adp.Update(Dt)[/align]
[align=center] Next[/align]