主题：请教关于“自定义录入界面之二”，可否一次填充多个单元格

请教一下关于 “自定义录入界面之二”的问题，可否一次填充多个单元格？

教程地址

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()

如何修改？

谢谢 管理员。貌似这样弄的。

可是不行呢

此主题相关图片如下：201108061054226453.jpg

tabl is not declared

是不是在 第4步 “将Table控件的DoubleClick事件设置为：” 这里 设置的？怎么不行呀？

应该可以了。谢谢~！！

不过好像不太稳定。刚填完代码的时候不行。重启foxtale就可以了。

还有一个 问题

第4步  ：“将Table控件的DoubleClick事件设置为：

窗口中绑定一个表，如何过滤表中的数据？

比如

教程中

http://www.foxtable.net/help/topics/1534.htm

一、 

 二、假如我的代码如下

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步这里设置

代码怎么写？

版主原谅我吧。我试过 ，不会写才来问的。

然后这样有点问题，就是 默认会显示所有的客户，只有当 触发textbox1的textchanged 事件后才会过滤掉 isstop=1的客户。显然是有点不合理的。

确实太复杂了点。就这么问吧：

标准教程地址：

http://www.foxtable.net/help/topics/1534.htm

上图片

我要过滤掉所有 联系人职务=“销售员” 的行 怎么 操作呢？

确实难了点。这样问吧。

标准教程地址：

http://www.foxtable.net/help/topics/1534.htm

上图：

当我要过滤掉 所有 联系人职务=“销售员” 的行， 怎么操作呢？

谢谢 ！当然是这样写的。可是在哪里填呢？

原来的语句是这样写

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口2_Table1")
tbl.Filter= ""
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter =("pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt)
End If

运行没有问题 。

我想加上 条件：leveal=2 and deleted=0 and isstop=0  order by pfullname desc,standard desc,unit1 desc

使得tbl.Filter =("pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt)
变成  tbl.Filter =("pfullname Like " & txt & " Or Standard Like " & txt & " Or Unit1 Like " & txt) and (leveal=2 and deleted=0 and isstop=0)  order by pfullname desc,standard desc,unit1 desc

具体代码规范怎么写？

狐狸爸爸 看到了 第一时间回复我吧。

我的这个功能快完成了。绝对比教程的方便快捷很多。到时候我小小地回报一下。确实是很小很小的回报。到时候我也做一个功能模块的教程。你们一复制粘贴就可以发布出来了。

再次感谢狐狸爸爸的帮助和支持！