主题：列表框如何显示某表通过筛选出来的某列

 Dim Filter As String
With e.Form.Controls("TextBox4")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "月份>" & .Value & " "
    End If
End With
If Filter > "" Then
    Tables("使用登记表").Filter = Filter '【“使用登记表“ 这个不是副本表】
End If
Dim cmb As WinForm.CheckedListBox = e.form.Controls("CheckedListBox1") '【这个列表框如何只显示筛选后出来的配送公司？】
cmb.ComboList =Tables("使用登记表").DataTable.GetComboListString("配送公司")

cmb.ComboList =Tables("使用登记表").DataTable.GetComboListString("配送公司", Tables("使用登记表").Filter)