以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ComboBox下拉排序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169328)
--  作者：seal51
--  发布时间：2021/6/12 9:30:00
--  ComboBox下拉排序
ComboBox下拉排序

SelectedIndexChanged事件
Dim khbh As WinForm.ComboBox = e.Form.Controls("客户名称")
Tables("订单主表").Filter = "客户名称 = \'" & khbh.Text & "\'"

Enter事件
Dim khbh As WinForm.ComboBox = e.Form.Controls("客户名称")
khbh.ComboList = DataTables("订单主表").sqlGetComboListString("客户名称")
Tables("订单主表").Sort = "订购日期"

如何将客户名称下拉列表通过客户ID排序？
--  作者：有点蓝
--  发布时间：2021/6/12 9:39:00
--  
khbh.ComboList = DataTables("订单主表").sqlGetComboListString("客户名称","","客户ID")

语法：

SQLGetComboListString(ColumnName，Filter, Sort)

ColumnName：列名称，从此列中提取不重复的值。
Filter:     可选参数，指定一个条件表达式，只返回符合此条件的值。
Sort:       可选参数，指定排序列，如果省略，则根据取值列排序，通常无需设置。
--  作者：seal51
--  发布时间：2021/6/12 9:51:00
--  
我就是这样写的，为何下拉为空白
--  作者：seal51
--  发布时间：2021/6/12 9:57:00
--  
哦，知道了，不是一个表