以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  DropDownForm如何ORDER  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124983)
--  作者：witkeylaw
--  发布时间：2018/9/17 20:59:00
--  DropDownForm如何ORDER
按照帮助文件，请问如何按公司名称排序，引用如下：
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() \'将输入焦点返回下拉列表框


------------------------------
--  作者：有点蓝
--  发布时间：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() \'将输入焦点返回下拉列表框