如何通过单击列表框行项将搜索结果返回到文本框

Question

我正在尝试从数据库中读取数据以显示在列表框中。

我有文本框和组合框：txtIndex、txtEventID、cmbServer、cmbCompany、txtMessage...

当我点击“显示列表”按钮时，数据表中的所有数据都将被读取并填充到列表框中。单击列表框行项后，所有相关信息将显示在相应的文本框和组合框中对于这种情况。

我使用 FindAll 函数实现搜索引擎，搜索结果似乎还可以。

问题是：当我点击列表框中的搜索结果时，文本框和组合框中显示的数据不正确。

下面是列出索引，不是我想要的。

这是我显示数据的代码（由 UserForm1_Click() 处理）

Private Sub Listbox1_Click()

Dim strAddress As String
Dim idx As Long

'    idx = ListBox1.ListIndex + 1

For idx = 0 To ListBox1.ListCount
    If ListBox1.Selected(idx) = True Then
        strAddress = ListBox1.ListIndex + 1

        UserForm1.txIndex.Value = Sheets("DATA").Range("A" & strAddress).Value
        UserForm1.txtEventID.Value = Sheets("DATA").Range("B" & strAddress).Value
        UserForm1.txtSource.Value = Sheets("DATA").Range("C" & strAddress).Value
        UserForm1.cmbServer.Value = Sheets("DATA").Range("D" & strAddress).Value
        UserForm1.txtMessage.Value = Sheets("DATA").Range("E" & strAddress).Value
        UserForm1.cmbStatus.Value = Sheets("DATA").Range("F" & strAddress).Value
        UserForm1.txtDate.Value = Sheets("DATA").Range("G" & strAddress).Value
        UserForm1.txtDate.Text = VBA.Format(txtDate, "yyyy.mm.dd")

        UserForm1.txtIssueNo.Value = Sheets("DATA").Range("H" & strAddress).Value
        UserForm1.cmbCompany.Value = Sheets("DATA").Range("I" & strAddress).Value
        UserForm1.txtErrorType.Value = Sheets("DATA").Range("J" & strAddress).Value
        UserForm1.cmbPriority.Value = Sheets("DATA").Range("K" & strAddress).Value
        UserForm1.txtComment.Value = Sheets("DATA").Range("L" & strAddress).Value
        UserForm1.txtName.Value = Sheets("DATA").Range("M" & strAddress).Value

        GoTo EndLoop
'        UserForm1.Show
    End If
Next idx

EndLoop:
Application.ScreenUpdating = True
Label25.Caption = "You're looking for event id:  " & txtEventID.Text

End Sub

结果不正确。我想在文本框和组合框中显示与所选项目完全相关的数据，但是当我选择搜索结果（显示在第一行）时，Useform 在工作表中显示了 1 行数据，而不是搜索结果。

问题如附图所示。

Answer 1

首先，您不应该使用 UserForm1_Click() 事件来显示数据，而应该使用 SomeButton_Click 事件来显示数据

那么你必须有一个ListBox1_Click事件句柄用户窗体控件在选择任何ListBox1项目后刷新 如下：

Option Explicit

Private Sub Listbox1_Click()
    Dim strAddress As Long
    Dim dataSht As Worksheet

    With Me
        If .ListBox1.ListIndex <> -1 Then
            Set dataSht = Sheets("DATA")
            strAddress = GetEventIDRow(.ListBox1.List(.ListBox1.ListIndex, 1), dataSht.Columns("B")) '<~~  GetEventIDRow returns "Data" sheet row corresponding to the selected EventID, which is got from the 2nd column of the selected ListBox row

            .txIndex.Value = dataSht.Range("A" & strAddress).Value
            .txtEventID.Value = dataSht.Range("B" & strAddress).Value
            .txtSource.Value = dataSht.Range("C" & strAddress).Value
            .cmbServer.Value = dataSht.Range("D" & strAddress).Value
            .txtMessage.Value = dataSht.Range("E" & strAddress).Value
            .cmbStatus.Value = dataSht.Range("F" & strAddress).Value
            .txtDate.Value = dataSht.Range("G" & strAddress).Value
            .txtDate.Text = VBA.Format(txtDate, "yyyy.mm.dd")

            .txtIssueNo.Value = dataSht.Range("H" & strAddress).Value
            .cmbCompany.Value = dataSht.Range("I" & strAddress).Value
            .txtErrorType.Value = dataSht.Range("J" & strAddress).Value
            .cmbPriority.Value = dataSht.Range("K" & strAddress).Value
            .txtComment.Value = dataSht.Range("L" & strAddress).Value
            .txtName.Value = dataSht.Range("M" & strAddress).Value
        End If
    End With
End Sub

Function GetEventIDRow(EventID As Long, rng As Range) As Long
    GetEventIDRow = rng.Find(What:=EventID, LookAt:=xlWhole, LookIn:=xlValues).Row
End Function

请考虑我几乎是盲目的编码，所以你必须适应你的实际数据和控制结构