标题：请教关于“自定义录入界面之二”，可否一次填充多个单元格
请教一下关于 “自定义录入界面之二”的问题，可否一次填充多个单元格？
教程地址
http://www.foxtable.net/help/topics/2116.htm
图片如下：
假如我记不住客户id ，我想在订单表中 增加 公司名称，联系人。
然后使用这个 “自定义录入界面之二”的功能，但是回车的时候一次性填充，“客户id”、“公司名称”、“联系人”。
可否实现？
关键代码是不是这个：
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
Forms("窗口1").DropDownBox.Value = tbl.Current("客户ID")
End If
Forms("窗口1").DropDownBox.CloseDropDown()
如何修改？
If tbl.Current IsNot Nothing Then
Forms("窗口1").DropDownBox.Value = tbl.Current("客户ID")
tables("XXX").Current("YYY1") = tabl.Current("YYY1")
tables("XXX").Current("YYY2") = tabl.Current("YYY2")
tables("XXX").Current("YYY3") = tabl.Current("YYY3")
End If
Forms("窗口1").DropDownBox.CloseDropDown()
谢谢 管理员。貌似这样弄的。
可是不行呢
此主题相关图片如下：201108061054226453.jpg
tabl is not declared
是不是在 第4步 “将Table控件的DoubleClick事件设置为：” 这里 设置的？怎么不行呀？
If tbl.Current IsNot Nothing Then
Forms("窗口1").DropDownBox.Value = tbl.Current("客户ID")
tables("XXX").Current("YYY1") = tbl.Current("YYY1")
tables("XXX").Current("YYY2") = tbl.Current("YYY2")
tables("XXX").Current("YYY3") = tbl.Current("YYY3")
End If
Forms("窗口1").DropDownBox.CloseDropDown()
应该可以了。谢谢~！！
不过好像不太稳定。刚填完代码的时候不行。重启foxtale就可以了。
还有一个 问题
第4步 ：“将Table控件的DoubleClick事件设置为：
|
Dim tbl As Table = Tables("窗口1_Table1") If tbl.Current IsNot Nothing Then Forms("窗口1").DropDownBox.Value = tbl.Current("客户ID") tables("XXX").Current("YYY1") = tbl.Current("YYY1") tables("XXX").Current("YYY2") = tbl.Current("YYY2") tables("XXX").Current("YYY3") = tbl.Current("YYY3") End If Forms("窗口1").DropDownBox.CloseDropDown() ”
这其中 Table控件的DoubleClick ，意思是 table的双击鼠标事件吗？
总是不停地从键盘鼠标切换，多有不方便，
可不可以用键盘 Enter 来代替DoubleClick呢？
该怎么弄？ |
窗口中绑定一个表，如何过滤表中的数据？
比如
教程中
http://www.foxtable.net/help/topics/1534.htm
一、
1、首先在订单表新增一个窗口，窗口类型为模式，窗口插入一个TextBox和一个Table控件，Table控件的“作为副本”属性设置为True，“允许编辑”属性设置为False，并绑定到客户表。
绑定客户表以后 我如果不想让某行显示怎么办？比如说客户表中有某一列 是isstop 是判断该客户是否停用的，我想让 isstop =1 的客户不显示在表中(即只显示 isstop=0 的客户)，怎么办？
二、假如我的代码如下
sql="select * from customer where ("客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt) and leveal=2 and deleted=0 and isstop=0 order by 客户id desc"
可否在第2步这里设置
2、将TextBox1的TextChanged事件代码设为:
Dim
txt As String = e.Form.Controls("TextBox1").TextDim 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
代码怎么写？
版主原谅我吧。我试过 ，不会写才来问的。
然后这样有点问题，就是 默认会显示所有的客户，只有当 触发textbox1的textchanged 事件后才会过滤掉 isstop=1的客户。显然是有点不合理的。