d.ColumnCount = 85 d.RowCount = 20 For i = 0 To d.ColumnCount - 1 For j = 0 To d.RowCount - 1 d.Columns(i).Name = "colonne " & i ' à ceniveau la je donne un nom à l'entête de la colonne Next j Next i End Sub
d.ColumnCount = 85 d.RowCount = 20 For i = 0 To d.ColumnCount - 1 For j = 0 To d.RowCount - 1 d.Item(i, j).Value = j 'j'ai inséré des valeurs dans mes cellules Next j Next i For i = 0 To d.ColumnCount - 1 d.Columns(i).Name = "colonne " & i 'ensuite je nomme les colonnes Next i
d.ColumnCount = 85 d.RowCount = 20 For i = 0 To d.ColumnCount - 1 For j = 0 To d.RowCount - 1 d.Item(i, j).Value = j Next j Next i d.DataSource = d.CurrentCell 'ici je lie la source donc !=/<> de nothing For i = 0 To d.ColumnCount - 1 d.Columns(i).Name = "colonne " & i Next i
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiond.DataSource = d.CurrentCell
Ctrl.columns(I).Headertext = InfoCol(1)
'Ctrl est la variable contenant le DataGrid 'BDTabIni(Con) est le tableau contenant tous les objet de la connexion nro "Con" 'InfoCol(I,J) est le tableau contenant toutes les colonnes indice I et les paramètres indice J ' J = 0 => Nom du champ de la base de données ' J = 1 => Nom à placer sur l'entête de la colonne ' J = 2 => Dimension de la colonne BD_ChrgDS(Con) 'Procédure de chargement du DataSet et du DataTable Ctrl.DataSource = BDTabIni(Con).TabBD 'Liaison du DataTable au Datasource de la DataGrid For I = 0 To Ctrl.columns.count - 1 Flag = False For J = 0 To UBound(RéfCol) If LCase(Ctrl.columns(I).datapropertyname) = LCase(InfoCol(0)) And UBound(InfoCol) = 2 Then Ctrl.columns(I).name = InfoCol(I,1) Ctrl.columns(I).width = CInt(InfoCol(I,2)) Flag = True Exit For End If Next Ctrl.columns(I).visible = Flag Next