经过努力，编写代码能力提高了一点点。。一下问题已经解决。谢谢狐爸，lsy etc。。

1，双击表格的单元格如何把这个值作为查询条件在同一个窗口上查询？

2，在查询窗口中输入编号之后，如何让该窗口的其他所有控件都返回同一个数据行的相应的值？除了那个表格。

3，想在打印按钮上设置，如果已经打印过了就提示“已打印，是否要再次打印？”这个是要设置相应的列吗？如何设置？

好像周末了，哪位前辈有空指点一下小辈。谢谢~

---

感言，从开始做打印模版到现在，感觉狐表越来越好用了~:)

求助的方式，很合法，不合理。

楼主是初学者，提的问题又比较多。

比较好的方法是把项目实例发上来，别人做好了，能看懂最好，看不懂也能用。

1、

forms("窗口名").Controls("控件名").Value = Tables("xxx").Current("列名")

2、参考：

http://www.foxtable.com/help/topics/1058.htm

3、自己加个逻辑列。

另lsy老师说得对，另最好按顺序先系统学习帮助文件，对于开发软件来说，最没有技术含量的就是窗口和界面，啃透基本的类型和方法才是根本。

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

狐爸教会了我们如何循序渐进的学习~嗯嗯谢谢~

关于2的例子差别比较大。是在查询窗口输入要查询的“订单子编码”，然后在对应的“市场”“楼层”“档口”等 文本框中填充对应的数据。

#和最底下的表格无关。

如果这样，不用查询，合成条件后，直接根据合成的条件定位到符合条件的行：

http://www.foxtable.com/help/topics/0553.htm

http://www.foxtable.com/help/topics/0552.htm

记得输入查询内容的文本框不要绑定，要显示内容的文本框才绑定。

做出来啦。

Dim txt As String = e.Form.controls("textbox1").text
Dim dr As DataRow
 txt = "\'%" & txt & "%\'"
dr = DataTables("小包发货单").Find(" [订单子编号] like " & txt   )
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("查询_Table1").FindRow(dr)
    If wz >= 0 Then
        Tables("查询_Table1").Position = wz
    End If
End If

不过发现个问题，这里默认了个位置的初始值为0行，如何让打开窗口的时候或者查询不到结果时都为空值？

如何得到datatable数据行的位置？ 我刚刚的代码有点瑕疵。数据表里有“订单编号”和“订单子编号”。我查询的时“订单子编号”，但是下面有个“订单编号”的文本框，会自动筛选table的内容。