DataTable in a grid make flicker in the first dataload

Question

Hi experts,
I have a form with a Grid, in this grid i have a datatable (with query).
I open my form in create mode, if i click to the next button i have the following problem :
                                   - when i open the form for the first time, data are loaded 1 time,
                                   - when i open the form the second time, data are loaded 2 times
                                   - when i open the form the third time, data are loaded 3 times.....
After this first load, if i use next/previous, or change folder i have no problem, data are reloaded just 1 time..
Have you any solution to my problem ?
Regards

Answer 1

Hi gordon,
I put a part of my code because he is long.
this is parts regarding form load, next/previous event and dataload/update. (The datatable is creating in screenpainter as manual).
    Private Sub LoadForm()
        Dim creationPackage As SAPbouiCOM.FormCreationParams
        Dim oXML As Xml.XmlDocument = New Xml.XmlDocument
        Try
            'Create the FormCreationParams object
            creationPackage = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
            oXML.Load(". ormulaireGSN00002.srf")
            creationPackage.XmlData = oXML.InnerXml
            ' Add the form to the SBO application
            Dim oForm As SAPbouiCOM.Form
            oForm = SBO_Application.Forms.AddEx(creationPackage)
            oForm.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE
            oForm.PaneLevel = 1
            oForm.DataSources.DBDataSources.Add("OPRJ")
            oForm.DataBrowser.BrowseBy = "PrjCode"
            AddReFin(oForm, 0)
            oForm.Visible = True
            oForm.Update()
        Catch
            SBO_Application.MessageBox(Err.Description)
        End Try
    End Sub
       Private Sub SBO_Application_MenuEvent(ByRef pVal As SAPbouiCOM.MenuEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.MenuEvent
        If ((pVal.MenuUID = "1288") Or (pVal.MenuUID = "1289") Or (pVal.MenuUID = "1290") Or (pVal.MenuUID = "1291")) Then
            If SBO_Application.Forms.ActiveForm.TypeEx = "GSN00002" Then
                If (pVal.BeforeAction = False) Then
                    Dim cCode As SAPbouiCOM.EditText
                    Dim oForm As SAPbouiCOM.Form
                    Dim oPaneLevel As Integer
                    Dim oitemedit As SAPbouiCOM.EditText
                    Try
                        oForm = SBO_Application.Forms.ActiveForm
                        oPaneLevel = oForm.PaneLevel
                        cCode = oForm.Items.Item("EdPrC0").Specific
                        oitemedit = oForm.Items.Item("PrjCode").Specific
                        cpAndRes(cCode.Value, oForm)
                        Select Case oPaneLevel
                            Case "1"
                                 AddReFin(oForm, 1)
                            Case "2"
                                 AddOppor(oForm, 1)
                            Case "3"
                                 AddAchat(oForm, 1)
                            Case "4"
                                 AddVente(oForm, 1)
                        End Select
                        oForm.Freeze(False)
                    Catch
                        SBO_Application.MessageBox(Err.Description)
                    End Try
                Else
                    Dim oForm As SAPbouiCOM.Form
                    Try
                        oForm = SBO_Application.Forms.ActiveForm
                        oForm.Freeze(True)
                    Catch
                    End Try
                End If
            End If
        End If
    End Sub
      Private Sub AddReFin(ByVal oform As SAPbouiCOM.Form, ByVal oType As Integer)
        Dim oitem As SAPbouiCOM.Item
        Dim oitemSpeGr As SAPbouiCOM.Grid
        Dim oQuery As MyQueries
        Dim oitemedit As SAPbouiCOM.EditText
        Try
            oitemedit = oform.Items.Item("PrjCode").Specific
            oQuery = New MyQueries("Généralités", oitemedit.Value)
            oitem = oform.Items.Item("GdPrRf")
            oitemSpeGr = oitem.Specific
            oform.DataSources.DataTables.Item("RefFin").Clear()
            oform.DataSources.DataTables.Item("RefFin").ExecuteQuery(oQuery.oMyQuery)
            If oType = 0 Then
                'Affectation des données au grid
                oitemSpeGr.DataTable = oform.DataSources.DataTables.Item("RefFin")
            End If
        Catch
            SBO_Application.MessageBox("Erreur lors de l'ajout des données dans le tableau des résultats financiers" & Err.Description)
        End Try
    End Sub