From 82299b0cbc62c64c6053887ae639ce8b53a001fb Mon Sep 17 00:00:00 2001 From: Th3maz1ng Date: Tue, 19 Mar 2019 10:57:29 +0100 Subject: [PATCH] Update page 'Meta GridView' --- Meta-GridView.md | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) diff --git a/Meta-GridView.md b/Meta-GridView.md index 9841c1c..32f84bb 100644 --- a/Meta-GridView.md +++ b/Meta-GridView.md @@ -9,10 +9,32 @@ Il est maintenant nécessaire d'initialiser le [Ctrl_XtraGrid](Dll-KmProd#Meta_DevExpress)(GridView) avec les informations de la base de données. Il est aussi important de d'initialiser le [Ctrl_GridBarreOutils](Dll-KmProd#Meta_DevExpress) afin de la lier au tableau. Voici comment faire : -``` vbnet + ```vbnet +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 + MesBdd_c = CnxBDD_P + Droits_c = Droits_P + If DAL_V_KPI_c Is Nothing Then + DAL_V_KPI_c = New C_DAL_V_KPI(CnxBDD_P, 3) + End If + + If PROCEDURES_c Is Nothing Then + PROCEDURES_c = New C_PROCEDURES(MesBdd_c, 3, Droits_c) + End If + + Ctrl_XtraGrid1.Initialiser(MesBdd_c, Droits_P, System.Reflection.Assembly.GetCallingAssembly().GetName.Name, Ctrl_XtraGrid1.Name) + Ctrl_GridBarreOutils1.Initialiser(Ctrl_XtraGrid1) + + GridDataTable_c = ConstructDatatable() + Return True + Catch ex As Exception + Return False + End Try + End Function ``` + ###### *Si vous avez des sugestions d'ajouts, de corrections, m'en faire part Merci*