以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  列表框如何显示某表通过筛选出来的某列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123997)

--  作者：蓝蚂蚁 --  发布时间：2018/8/28 17:39:00 --  列表框如何显示某表通过筛选出来的某列  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("配送公司")

--  作者：有点甜 --  发布时间：2018/8/28 17:59:00 --   cmb.ComboList =Tables("使用登记表").DataTable.GetComboListString("配送公司", Tables("使用登记表").Filter)