[larbihamri]

أخي إبراهيم سوف أحاول تبسيط الفكرة (الفكرة بأكملها من أجل عدم كتابة الكود مرتين) يعني لم ارد كتابة مايلي مرة أكتب فورم 2 و مرة أكتب فورم 3 :

كود :

If Application.OpenForms().OfType(Of Form2).Any Then
           For NewRow As Integer = 0 To dt.Rows.Count - 1

               Form2.dgv_vente.Rows.Add()
               Form2.dgv_vente.CurrentCell = Form2.dgv_vente.Rows(Form2.dgv_vente.Rows.Count - 1).Cells(0)
               Dim i As Integer = Form2.dgv_vente.CurrentRow.Index

               Form2.dgv_vente.Item("id_v", i).Value = dt.Rows(i).Item("id")
               Form2.dgv_vente.Item("codeBar", i).Value = dt.Rows(i).Item("CodeBar")
               Form2.dgv_vente.Item("id_produit", i).Value = dt.Rows(i).Item("id_produit")
               Form2.dgv_vente.Item("nom_produit_v", i).Value = dt.Rows(i).Item("nom_produit")
               Form2.dgv_vente.Item("famille_produit_v", i).Value = dt.Rows(i).Item("famille_produit")
       Next    
      Else
       For NewRow As Integer = 0 To dt.Rows.Count - 1
        Form3.dgv_vente.Rows.Add()
               Form3.dgv_vente.CurrentCell = Form3.dgv_vente.Rows(Form3.dgv_vente.Rows.Count - 1).Cells(0)
               Dim i As Integer = Form3.dgv_vente.CurrentRow.Index

               Form3.dgv_vente.Item("id_v", i).Value = dt.Rows(i).Item("id")
               Form3.dgv_vente.Item("codeBar", i).Value = dt.Rows(i).Item("CodeBar")
               Form3.dgv_vente.Item("id_produit", i).Value = dt.Rows(i).Item("id_produit")
               Form3.dgv_vente.Item("nom_produit_v", i).Value = dt.Rows(i).Item("nom_produit")
               Form3.dgv_vente.Item("famille_produit_v", i).Value = dt.Rows(i).Item("famille_produit")
        Next
      End If

فكرت في كتابة هذا الكود لكن لم ينج

PHP كود :

dim frme
If Application.OpenForms().OfType(Of Form2).Any Then
frme = new form2
       Else
frme =new form3 
End If
    For NewRow As Integer = 0 To dt.Rows.Count - 1

                frme.dgv_vente.Rows.Add()
                frme.dgv_vente.CurrentCell = frme.dgv_vente.Rows(frme.dgv_vente.Rows.Count - 1).Cells(0)
                Dim i As Integer = frme.dgv_vente.CurrentRow.Index
                'rowindex = i

                frme.dgv_vente.Item("id_v", i).Value = dt.Rows(i).Item("id")
                frme.dgv_vente.Item("codeBar", i).Value = dt.Rows(i).Item("CodeBar")
                frme.dgv_vente.Item("id_produit", i).Value = dt.Rows(i).Item("id_produit")
                frme.dgv_vente.Item("nom_produit_v", i).Value = dt.Rows(i).Item("nom_produit")
                frme.dgv_vente.Item("famille_produit_v", i).Value = dt.Rows(i).Item("famille_produit")