1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
|
'déclaration des variables globales
Dim dsTmp, ds As DataSet
Dim tables, fields, order, criterias As New ArrayList
'... un peu plus loin dans le load de la windowsform...
'récupération des bons depuis les tables tbtype et tbref
Dim table As DataTable
tables.Clear()
tables.Add("tbtype")
dsTmp = frmBon.data.DoSelect(tables, Nothing, Nothing, False, Nothing, Nothing)
If Not ds Is Nothing Then
ds.Dispose()
End If
ds = New DataSet
table = dsTmp.Tables(0).Copy
dsTmp.Dispose()
ds.Tables.Add(table)
ds.Tables(0).TableName = "tbtype"
table.Dispose()
tables.Clear()
tables.Add("tbref")
dsTmp = frmBon.data.DoSelect(tables, Nothing, Nothing, False, Nothing, Nothing)
table = dsTmp.Tables(0).Copy
dsTmp.Dispose()
ds.Tables.Add(table)
ds.Tables(1).TableName = "tbref"
table.Dispose()
'création de la liaison entre les deux tables
Dim parentCol, childCol As DataColumn
parentCol = ds.Tables(0).Columns("prefixe")
childCol = ds.Tables(1).Columns("prefixe")
Dim rel As DataRelation
rel = New DataRelation("type/ref", parentCol, childCol)
ds.Relations.Add(rel)
ds.DataSetName = "Liste des bons"
'affichage de la liste dans le datagrid
dgListe.DataSource = ds.Tables(0)
'positionnement sur la table parente
dgListe.DataMember = "" |
Partager