Dim dr As DataRow = ds.Tables("TAMPON").NewRow dr.ItemArray = marque.ItemArray ds.Tables("TAMPON").Rows.Add(dr)
ction search_child(ByVal filtre As String, ByVal valeur_filtre As String, ByVal table As String) DataSet1.Tables.Add("TAMPON") Dim str As String = "" For Each id As DataRow In DataSet1.Tables(0).Rows For Each marque As DataRow In id.GetChildRows(table) If marque(filtre) = valeur_filtre Then DataSet1.Tables("TAMPON").Rows.Add(marque) End If Next marque Next id