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

Update page 'Meta GridView'

Th3maz1ng 2019-03-22 17:17:17 +01:00
parent 8f97419aa9
commit 0e0f981ca2
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Meta-GridView.md

@ -26,7 +26,7 @@ Voici comment faire :
Public Overridable Function Initialiser(ByRef CnxBDD_P As Metaproductique.Kmprod.C_SGBD, ByVal Droits_P As Metaproductique.Kmprod.C_Droits, ByVal Parametre_P As String, ByVal Master_P As Object) As Boolean Public Overridable Function Initialiser(ByRef CnxBDD_P As Metaproductique.Kmprod.C_SGBD, ByVal Droits_P As Metaproductique.Kmprod.C_Droits, ByVal Parametre_P As String, ByVal Master_P As Object) As Boolean
Try Try
Ctrl_XtraGrid1.Initialiser(CnxBDD_P, Droits_P, System.Reflection.Assembly.GetCallingAssembly().GetName.Name, 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) Ctrl_GridBarreOutils1.Initialiser(Ctrl_XtraGrid1)
Return True Return True
@ -47,7 +47,12 @@ 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 'L'information sur la requête SQL est disponible lors d'un contrôle : ctrl + clique souris bouton droit
Ctrl_XtraGrid1.Charger(GridDataTable_c, "Requête SQL permettant de récupérer les données affichées") 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
Return True Return True
Catch ex As Exception Catch ex As Exception
Meta.Meta_MessageBox.C_MessageBox.Show("Erreur lors de l'affichage : " & ex.Message, "Erreur", Nothing, MessageBoxButtons.OK) Meta.Meta_MessageBox.C_MessageBox.Show("Erreur lors de l'affichage : " & ex.Message, "Erreur", Nothing, MessageBoxButtons.OK)