返回表单

Question

我有一个非常老的VB6 WinForms应用程序。它具有一个非常简单的初始窗口，该窗口显示一个组合框，其中包含使用ADODB 2.8从MS SQL Server检索到的一些数据。它具有一个复选框，用于定义如何过滤从服务器检索到的数据。

加载表单时，正确添加了组合框的内容。我仍然有一个按钮，显示了一个新窗口，其中包含与组合框中的选定项目相关的数据。关闭其他窗口后，即使执行 Form_Load 方法，因此也将执行 Check1_Click 方法，所以我将重新打开原始窗口，并且组合框为空。但是，如果我单击该复选框，则会触发并执行 Check1_Click 事件，然后单击确定，并填充组合框。

第一次加载窗口时，将执行 Form_Load 并正确填充了组合。每次 Check1_Click ，记录集都包含正确的信息，只是返回到窗口时，它不会在组合框上显示它。

重新打开窗口后，我应该采取什么步骤来刷新组合框的内容吗？

组合框的类型为 MSDataListLib.DataCombo

click方法就是这样。

Private Sub Check1_Click()
    Dim SQL As String

    'If checked'
    If Me.Check1.Value = 1 Then
        SQL = "SELECT TABLE1.NAME, TABLE1.LASTNAME, TABLE1.NAME + TABLE1.LASTNAME AS FULLNAME " & _ 
              " WHERE TABLE1.ACTIF = 'Y' ORDER BY TABLE1.NAME, TABLE1.LASTNAME"
    'If not checked'
    Else
        SQL = "SELECT TABLE1.NAME, TABLE1.LASTNAME, TABLE1.NAME + TABLE1.LASTNAME AS FULLNAME " & _ 
              " ORDER BY TABLE1.NAME, TABLE1.LASTNAME"
    End If

    Disconnect
    Set Cn = Connect
    Set objRec = CloseRecordSet(objRec)
    Set objRec = New ADODB.Recordset
    With objRec
        .CursorLocation = adUseServer
        .Open SQL, Cn, adOpenStatic, adLockOptimistic, adCmdText
    End With
    With Me.FullName
        Set .RowSource = objRec
        .ListField = "FULLNAME"
        .DataField = "FULLNAME"
    End With
    Me.FullName.Refresh
    Me.Refresh
End Sub

这是其余方法的实现

'Connexion ADODB'
Public adoDbConn As ADODB.Connection


Private Sub Form_Load()
    Check1_Click
    Me.Refresh
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set objRec = CloseRecordSet(objRec)
    Disconnect
    Set Cn = Nothing

    With Me.FullName
        Set .RowSource = Nothing
        .ListField = ""
        .DataField = ""
    End With
    Me.FullName.Refresh
    Me.Refresh
End Sub 


Sub Disconnect()
    If Not adoDbConn Is Nothing Then
        If adoDbConn.State = adStateOpen Then adoDbConn.Close
    End If
    Set adoDbConn = Nothing
End Sub

Public Function Connect() As ADODB.Connection
    If adoDbConn Is Nothing Then        
        Set adoDbConn = New ADODB.Connection        
        ' Specify the OLE DB provider.'
        adoDbConn.Provider = "sqloledb"
        adoDbConn.Mode = adModeReadWrite
        ' Specify connection string on Open method.'
        adoDbConn.Open ChaineConnexion      
    End If      
    Set Connect = adoDbConn     
End Function

Public Function CloseRecordSet(rs As ADODB.Recordset) As Object
    If Not rs Is Nothing Then
        If rs.State = adStateOpen Then rs.Close
    End If
    Set CloseRecordSet = Nothing
End Function    

更新

加载详细信息窗口的方法

    'Showing the Detail Window'
Private Sub OpenFormDetail_Click()

    'If none is selected'
    If Me.FullName = "" Then
        'Show warning'
        Ret = MsgBox("Select one element!", vbExclamation, "ATTENTION !")
        Me.FullName.SetFocus
    Else

        'Storing fullname to use in detail other window'
        Globale.FullName = Right(Me.FullName, 11)

        'Load Detail Window'
        Load frmDetailWindow
        frmDetailWindow.Show

        'Unloads this window'
        Unload Me

    End If
End Sub

“详细信息”窗口中的方法将其关闭并重新打开原始窗口

    'Showing the original Window'
Private Sub Return_Click()

    'Open initial window'
    Load frmInitialWindow
    frmInitialWindow.Show

    'Closes Detail Window'
    Unload frmDetailWindow

End Sub