1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Dim T As Integer, U As Integer, MeArray
'6 Champs:
'NumEnrgLong, Champ1Text, Champ2Text, Champ3Integer, Champ4DateTime, Champ5Boolean, Champ6Unique
'liste des champs à ne pas visualiser
MeArray = Array("NumEnrgLong", "Champ4DateTime", "Champ6Unique")
'For T = MSHFlexGrid1.Cols - 1 To 0 Step -1
'ou bien
For T = Adodc1.Recordset.Fields.Count - 1 To 0 Step -1
For U = 0 To UBound(MeArray)
If Adodc1.Recordset.Fields(T).Name = MeArray(U) Then
MSHFlexGrid1.ColWidth(T) = 0
End If
Next U
Next T |
Partager