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


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

主题:DropDownForm如何ORDER

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


加好友 发短信
等级:童狐 帖子:242 积分:2417 威望: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() 
'将输入焦点返回下拉列表框


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



 回到顶部