DBgrid et hauteur de ligne

Question

Salut @ tous,

Voilà, j'ai une feuille avec une DBGrid. Or la table (BD access) avec laquelle elle est liée à un champs qui peut avoir de 1 à n lignes (c'est un champ d'adresse NDLR ;-) 
J'aimerais savoir s'il est possible d'avoir des hauteurs de lignes variables d'une ligne à l'autre qui s'adapte automatiquement au nombre de lignes de la colonne adresse.
Pour l'instant, j'ai fixé le DataMode à "0 - Bound".
Merci à celui qui trouvera la réponse...
--Ad@gyo--

cs_labout · Answer

Avec le Db grid toutes les lignes ont la même hauteur donc pas possible,il faudrait un MshFlexgrid
L'autre solution est de mettre une zone texte multiligne sur ta feuille et l'alimenter avec ta NDLR

Private Sub DBGrid1_Click()
   Text1.Text = ""
   Text1.Text = Data1.Recordset!notes
End Sub

Private Sub DBGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
   Text1.Text = ""
   Text1.Text = Data1.Recordset!notes
End Sub

tu peux même prevoir de ne l'allumer que si l'on est sur cette zone et la placer à l'endroit adhoc

Exemple
Private Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
If DBGrid1.Col = 14 Then
   Text1.Top = DBGrid1.Top + (DBGrid1.height/2)
   Text1.Left = DBGrid1.Left + (DBGrid1.Width / 2)
   Text1.Width = 3000
   Text1.Visible = True
   
Else
   Text1.Top = 5250
   Text1.Left = 630
   Text1.Width = 9075
 'ou 
   text1.visible=false 
End If
End Sub

Mais met ta grille en arrière plan sinon ta zone de texte sera en dessous

DBgrid et hauteur de ligne

1 réponse

Discussions similaires