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*