[VB/SQL] flexgrid will niet refreshen

[Verwijderd]

Na het updaten van mijn record wil op een ander formulier mijn MSHFlexGrid niet refreshen ookal spreek ik de public sub " Call frmFind.setFlexgrid(frmFind.MSHFlexGrid1) " aan.

Ik heb een formulier : frmFind die mij in een flexgrid records toont. Door er 1 te selecteren en op de knop "Bewerken" te klikken opent zich een nieuw formulier genaamd frmEditAfdeling waarin ik de gegevens ophaal met een opgeslagen procedure. Daarna update ik via een andere procedure ook weer de gegevens en sluit het formulier frmEditAfdeling zich. In de query_Unload hiervan staat dus Call frmFind.setFlexgrid(frmFind.MSHFlexGrid1) echter wat ik ook probeer, niets helpt...

Iemand enig idee?

[Verwijderd]

Hoe is de flexgrid met de database gekoppeld? Heb je een ado control gebruikt? Maybe een keer de recordsource requery-en....

[Verwijderd]

Verwijderd schreef op 14 januari 2004 @ 22:34:
Hoe is de flexgrid met de database gekoppeld? Heb je een ado control gebruikt? Maybe een keer de recordsource requery-en....

Nope,

code:

Public Sub setFlexgrid(fg As MSHFlexGrid)
    fg.Height = Picture1.Height
    fg.Top = Picture1.Top
    ThinBorder fg.hwnd, True
    Call FormatGridBefore(fg)
    
    Dim gobjRs As New ADODB.Recordset
    Set gobjRs = New ADODB.Recordset
    If strSP <> "" Then
        Call FillRecordSet(strSP, gobjRs, True)
        If gobjRs.State = adStateOpen Then
            Set fg.DataSource = gobjRs
            Call FormatGridAfter(fg)
            If gobjRs.RecordCount = 0 Then
                Me.Command1(0).Enabled = False
                Me.Command1(4).Enabled = False
                Me.Command1(5).Enabled = False
                Me.lstSorteren.Enabled = False
                Me.txtZoeken.Enabled = False
            End If
            gobjRs.Close
            Set gobjRs = Nothing
        Else
            Call FormatGridAfter(fg)
            Exit Sub
        End If
    End If
End Sub