0

我有一个选择不同的查询，可以在列表框中的选定字段上找到。但是，我希望它是一个不同的计数，我似乎无法正确编写代码。下面是我选择不同的工作代码。在此先感谢您为我搜索计数不同问题提供的任何帮助，但我没有看到任何特定于列表框选择的内容。

Private Sub CmdDistinctVal_Click()
Dim cn1 As ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim cmd1 As New ADODB.Command
Dim varItem As Variant
Dim aFields() As aArray
Dim NumRows As Integer
Dim NumFields As Integer
Dim colcount As Integer
Dim colwidths As String
Dim strRow As String
Dim cnt1 As Integer
Dim cnt2 As Integer

'On Error GoTo Err_ CmdDistinctVal_Click

'cmd1.ActiveConnection = CurrentProject.Connection

Me.DistinctResultsFldVal.RowSource = ""

ReDim aFields(50)
For cnt1 = 1 To 50
ReDim aFields(cnt1).fValue(6000)
Next

NumRows = 0
colcount = 0

For Each varItem In Me!ResultsFieldList.ItemsSelected
    colcount = colcount + 1
    aFields(colcount).fName = Me!ResultsFieldList.ItemData(varItem)
    NumFields = 0

    rs1.Open "SELECT DISTINCT " & Me!ResultsFieldList.ItemData(varItem) & " 
FROM [Results Report]", CurrentProject.Connection, adOpenKeyset, adLockOptimistic


If rs1.RecordCount > NumRows Then NumRows = rs1.RecordCount
strRow = strRow & Me!ResultsFieldList.ItemData(varItem) & ";"

While Not rs1.EOF
    NumFields = NumFields + 1
    If NumFields > NumRows Then
        NumRows = NumFields
    End If

    aFields(colcount).fValue(NumFields) = rs1(0) & ""


    rs1.MoveNext
Wend
rs1.Close
Next varItem
strRow = Left(strRow, Len(strRow) - 1)

Me.DistinctResultsFldVal.ColumnCount = colcount
Me.DistinctResultsFldVal.ColumnWidths = Mid(colwidths, 2)
Me.DistinctResultsFldVal.AddItem (strRow)

For cnt1 = 1 To NumRows

strRow = ""
For cnt2 = 1 To colcount
    If aFields(cnt2).fValue(cnt1) = "" Then
        strRow = strRow & ";"
    Else
        strRow = strRow & aFields(cnt2).fValue(cnt1) & ";"
    End If
Next
strRow = Left(strRow, Len(strRow) - 1)
Me.DistinctResultsFldVal.AddItem (strRow)

Next

'Err_ CmdDistinctVal_Click:
    'MsgBox "All null values were found in one or more of your selected fields"

End Sub
4

0 回答 0