''réinit du bsGlobal
''tu dois donc créer un dataset avec tes données
''' puis le connecter à un databinding
Me.bsGlobal.DataSource = dsGlobal.Tables("Données")
Me.DataGrid1.DataSource = Me.bsGlobal
Me.DataGrid1.DataSource = Me.bsGlobal
DataGridTextBoxColumnModif(ts1, "numinventaire", "num", 40)
DataGridTextBoxColumnModif(ts1, "dateInventaire", "date", 50)
D()
''permet de modifier les caractéristiques des datagrids
Sub DataGridTextBoxColumnModif(ByVal ts As DataGridTableStyle, ByVal MappingName1 As String, ByVal HeaderText1 As String, ByVal LargeurColonne As Integer)
Dim cOrder As New DataGridTextBoxColumn()
cOrder.MappingName = MappingName1
cOrder.HeaderText = HeaderText1
cOrder.Width = LargeurColonne
ts.GridColumnStyles.Add(cOrder)
End Sub
Partager