Th3maz1ng/MyRealKmProdWiki
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update page 'Meta GridView'

Th3maz1ng 2019-04-02 15:40:21 +02:00
parent f6fbf2e44b
commit 12f5d7fb9f
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Meta-GridView.md

@ -27,7 +27,6 @@ Public Overridable Function Initialiser(ByRef CnxBDD_P As Metaproductique.Kmprod
Try Try
Ctrl_XtraGrid1.Initialiser(CnxBDD_P, Droits_P, System.Reflection.Assembly.GetCallingAssembly().GetName.Name + "_" + Me.GetType().Name.ToString, Ctrl_XtraGrid1.Name) Ctrl_XtraGrid1.Initialiser(CnxBDD_P, Droits_P, System.Reflection.Assembly.GetCallingAssembly().GetName.Name + "_" + Me.GetType().Name.ToString, Ctrl_XtraGrid1.Name)
Ctrl_GridBarreOutils1.Initialiser(Ctrl_XtraGrid1)
Return True Return True
Catch ex As Exception Catch ex As Exception
@ -45,16 +44,20 @@ Voici comment faire :
'Le chargement se fait dans la fonction : Public Overridable Function Charger 'Le chargement se fait dans la fonction : Public Overridable Function Charger
Public Overridable Function Charger() As Boolean Public Overridable Function Charger() As Boolean
Try Try
'L'information sur la requête SQL est disponible lors d'un contrôle : ctrl + clique souris bouton droit
With Ctrl_XtraGrid1
.Requete = "Requête SQL permettant de récupérer les données affichées"
If GridDataTable_c IsNot Nothing Then
.DataSource = GridDataTable_c
End If
End With
'Il y a également une méthode charger qu'il est préférable d'utiliser pour les nouveaux développements 'Il y a également une méthode charger qu'il est préférable d'utiliser pour les nouveaux développements
'Ctrl_XtraGrid1.Charger(GridDataTable_c, "Requête SQL permettant de récupérer les données affichées") Ctrl_XtraGrid1.Charger(GridDataTable_c, "Requête SQL permettant de récupérer les données affichées")
'L'information sur la requête SQL est disponible lors d'un contrôle : ctrl + clique souris bouton droit
'With Ctrl_XtraGrid1
' .Requete = "Requête SQL permettant de récupérer les données affichées"
' If GridDataTable_c IsNot Nothing Then
' .DataSource = GridDataTable_c
' End If
'End With
'Permet de charger l'apparence du tableau en BDD
Ctrl_GridBarreOutils1.Initialiser(Ctrl_XtraGrid1)
Return True Return True
Catch ex As Exception Catch ex As Exception