以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自定了录入界面  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89311)
--  作者：133198609
--  发布时间：2016/8/18 22:59:00
--  自定了录入界面

在设计自定义录入界面的时候，以下代码只能实现根据输入值来筛选各列等于输入值txt的效果,我想在输入的时候筛选 “客户ID like  “ & txt & “ and 公司名称 = 编辑当前行的公司名称，怎么弄？ 直接写会提示 找不到列

 

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() \'将输入焦点返回下拉列表框

 

这样下拉窗口显示后，会自动根据下拉列表框的内容，筛选出可能的客户，并将输入焦点返回到下拉列表框。
--  作者：大红袍
--  发布时间：2016/8/18 23:08:00
--  
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 & " and 公司名称 = \'" & e.Form.DropTable.Current("公司名称") & "\'"
End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框
--  作者：133198609
--  发布时间：2016/8/19 10:27:00
--  
哎呀我去，就少用了一个\'\'，报错了一个晚上！
--  作者：133198609
--  发布时间：2016/8/19 11:26:00
--  

 

是不是副本型Table不能设置自定义录入啊
--  作者：狐狸爸爸
--  发布时间：2016/8/19 11:53:00
--  
可以的，注意表名的差别。
--  作者：133198609
--  发布时间：2016/8/19 12:00:00
--  
那 changeedit 代码还是写在表属性里面？ 因为窗口里面的table没有这个事件
--  作者：Hyphen
--  发布时间：2016/8/19 14:12:00
--  
表属性的代码对副本都有效，注意表名的差别
--  作者：133198609
--  发布时间：2016/8/20 1:13:00
--  
谢谢，已经完成了。