25-03-20, 02:07 PM
السّلام عليكم و رحمة الله و بركاته
أساتذتي الأفاضل .. لو ممكن المساعدة بتحويل هذه الجزئية إلى تقنية الديف إكسبرس
تابعت الكثير من الشروحات لكن أغلبها بالسي شارب و لم تفِ بالغرض
كود :
DA = New OleDb.OleDbDataAdapter("SELECT * From TBL_RETOUR_VENTE_DETAILS Where RETOUR_VENTE_DETAILS_Invoices_Code = '" & Code_Show & "'", Conne_2020)
Dim DS As New DataSet
DS = New DataSet
DA.Fill(DS)
DT = DS.Tables(0)
For I = 0 To DT.Rows.Count - 1
DataGridView1.Rows.Add()
'GridView2.AddNewRow()
'GridView2.GetDataRow(I).Item(0) = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Items_Code")
'GridView2.GetDataRow(I).Item(1) = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Items_Name")
DataGridView1.Rows(I).Cells(0).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Items_Code")
DataGridView1.Rows(I).Cells(1).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Items_Name")
DataGridView1.Rows(I).Cells(2).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Unite")
DataGridView1.Rows(I).Cells(3).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Price")
DataGridView1.Rows(I).Cells(4).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Quantite")
DataGridView1.Rows(I).Cells(5).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Discound")
DataGridView1.Rows(I).Cells(6).Value = DT.Rows(I).Item("RETOUR_VENTE_DETAILS_Total")
Next
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
تحياتي
قناتنا على اليوتوب