Discussion :

[stephane93fr]

Bonjour à tous.

Je souhaiterais avoir des tailles de colonne différente (celon ce qu'il y a dedans, soit elles sont trop petite, soit elles sont trop grande) dans mon DATAGRID et ne plus avoir une taille fixe pour toute, mais je n'y parviens pas.

Est-ce que DATAGRIDTABLESTYLE est la solution, si oui, est-ce que quelqu' peut m'expliquer comme sa marche.

Merci

[Lahouari]

Oui, tu seras obligé de passer par le DatagridTableStyle

voici un exemple:
on suppose que ton Datagrid se nomme: dtg

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim styleGrille As New DataGridTableStyle
        Dim styleCol As DataGridColumnStyle
 
        styleCol = New DataGridTextBoxColumn
        styleCol.HeaderText = "Mon Titre"         ' titre de la colonne
        styleCol.MappingName = "titre"      ' nom de la colonne dans la table
        styleCol.NullText = 0
        styleCol.Width= 100                       ' largeur de la colonne
        styleGrille.GridColumnStyles.Add(styleCol)
 
        dtg.TableStyles.Add(styleGrille)

[stephane93fr]

OK super !! Je crois que j'ai bien compris cette partie la.

Maintenant, comment je fais pour l'utiliser ?

Je recupere des données depuis une table qui se trouve dans un fichier ACCESS, et je voudrais donner des tailles differentes pour chaque colonne.

[Lahouari]

bah c'est simple, des que tu as chargé ta table dans le datatgrid, tu rajoutes le code précédents. Bien entendu tu dois réécrire les 6 lignes centrales autant de fois qu'il y a de colonnes que tu veux afficher.

[stephane93fr]

Ca ne marche pas !!
Je te donne mon code, peut etre que je fais quelque chose de mal.

[/code]
Dim MyConnection As New System.Data.OleDb.OleDbConnection
Dim MyAdapter As OleDbDataAdapter = New OleDbDataAdapter
Dim MyDataSet As DataSet = New DataSet
Dim styleGrille As New DataGridTableStyle
Dim styleCol As DataGridColumnStyle

Dim ChemBdd As String = Application.StartupPath & "\Base\bd.mdb"
MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & ChemBdd

Try
Dim StrConnect As String = "select Titre, Dispo from Base"
Dim MyCommand As OleDbCommand = New OleDbCommand(StrConnect, MyConnection)

MyAdapter.SelectCommand = MyCommand
MyDataSet.Clear()
MyAdapter.Fill(MyDataSet)
DG_OTV.DataSource = MyDataSet.Tables(0)

styleCol = New DataGridTextBoxColumn
styleCol.HeaderText = "Mon Titre1" ' titre de la colonne
styleCol.MappingName = "test" ' nom de la colonne dans la table
styleCol.NullText = 0
styleCol.Width = 200 ' largeur de la colonne
styleGrille.GridColumnStyles.Add(styleCol)

styleCol = New DataGridTextBoxColumn
styleCol.HeaderText = "Mon Titre2" ' titre de la colonne
styleCol.MappingName = "test2" ' nom de la colonne dans la table
styleCol.NullText = 0
styleCol.Width = 20 ' largeur de la colonne
styleGrille.GridColumnStyles.Add(styleCol)

DG_OTV.TableStyles.Add(styleGrille)
Catch ex As Exception
MessageBox.Show("Impossible d'établir la connection à la base.")
End Try

[Lahouari]

sors les nouvelles lignes du Try Catch et observe le type d'erreur obtenue.

[stephane93fr]

Je n'ai aucune erreur !!

[Lahouari]

Je n'ai aucune erreur !!

comment est affiché ton Datagrid ???

[stephane93fr]

Et bien je l'ai créé depuis la partie DESIGN !! Et j'ai laissé les valeurs par defaut.

[Lahouari]

Et bien je l'ai créé depuis la partie DESIGN !! Et j'ai laissé les valeurs par defaut.

dans ce cas, va dans la propriété TableStyles de ton Datgrid, via le Designer et vérifie qe tu n'as pas créé un style.
si c'est le cas, alors le supprimer.

[stephane93fr]

Je n'en ai pas créé !!

[Lahouari]

Je n'en ai pas créé !!

essaie de mettre les nouvelles lignes , avant l'affectation de la table à la Datagrid

[stephane93fr]

Malheureusement, j'ai essaye de mettre avant ou apres, et c'est pareil !!

[Lahouari]

Malheureusement, j'ai essaye de mettre avant ou apres, et c'est pareil !!

j'avais pas pris le temps de lire le code que tu avais posté !!!!

Ta requete SELECT donne les colonnes Titre et Dispo

donc tu dois utiliser les même NOM pour le mapping !!!
c'est à dire:

styleCol.MappingName = "Titre" et non pas "test"

idem pour "Dispo" à la place de "test2"


tu aurais du me dire qu'à l'affichage , tu n'avais AUCUNE colonne !!

[stephane93fr]

Le probleme est que j'ai déjà modifie les MAPPING NAME comme tu le dis, et quoi que je face, mes colonnes apparaissent, mais les STYLE ne s'applique pas.