Foxtable(狐表)用户栏目专家坐堂 → DropDownForm如何ORDER


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

主题:DropDownForm如何ORDER

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


加好友 发短信
等级:童狐 帖子:234 积分:2335 威望:0 精华:0 注册:2011/6/19 0:05:00
DropDownForm如何ORDER  发帖心情 Post By:2018/9/17 20:59:00 [只看该作者]

按照帮助文件,请问如何按公司名称排序,引用如下:
http://www.foxtable.com/webhelp/scr/2465.htm

一、设计下拉窗口

1、首先在订单表新增一个窗口,名称为"窗口1",窗口类型为"DropDownForm",窗口插入一个Table控件,Table控件的“作为副本”属性设置为True,“允许编辑”属性设置为False,并绑定到客户表。

2、将窗口的DropDownOpened事件代码设置为:

Dim txt As String = e.Form.DropDownBox.Text
Dim
 tbl As Table = Tables("窗口1_Table1")
If
 txt = "" Then
    
tbl.Filter = ""
Else

    txt = 
"'%" & txt & "%'"
    tbl.Filter = 
"客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End
 If
e.Form.DropDownBox.
Select() 
'将输入焦点返回下拉列表框


------------------------------



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


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

……
Else
    txt = 
"'%" & txt & "%'"
    tbl.Filter = 
"客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End
 If
tbl.sort = "公司名称"
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

 回到顶部