Foxtable(狐表)用户栏目专家坐堂 → ComboBox下拉排序


  共有3409人关注过本帖树形打印复制链接

主题:ComboBox下拉排序

帅哥哟,离线,有人找我吗?
seal51
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
ComboBox下拉排序  发帖心情 Post By:2021/6/12 9:30:00 [只看该作者]

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排序?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110528 积分:562524 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/12 9:39:00 [只看该作者]

khbh.ComboList = DataTables("订单主表").sqlGetComboListString("客户名称","","客户ID")

语法:

SQLGetComboListString(ColumnName,Filter, Sort)

ColumnName:列名称,从此列中提取不重复的值。
Filter:     可选参数,指定一个条件表达式,只返回符合此条件的值。
Sort:       可选参数,指定排序列,如果省略,则根据取值列排序,通常无需设置。


 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2021/6/12 9:51:00 [只看该作者]

我就是这样写的,为何下拉为空白

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2021/6/12 9:57:00 [只看该作者]

哦,知道了,不是一个表

 回到顶部