主题：[求助] 请问是如何让当前窗口的控件和另一个窗口的表格绑定？

先学会自己分析一下Button1的Click事件代码：

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

 

学会分析，可以自己解决大部分问题。

 

找出出错的代码，基本上就知道原因了，搞不定的话，就贴出代码，告诉我们那一行出错，错误提示是什么

以下是代码。提示没引用实例。 打印模版的窗口只是作为模版使用。打印按钮不在模版窗口上，而是在订单处理窗口上。

 

Dim sto As WinForm.Form = Forms("申通打印模版")
Forms("申通打印模版").controls("sjrtextbox").BindingField = "订单处理_Table1.收货人"
Forms("申通打印模版").controls("sjdztextbox").BindingField = "订单处理_Table1.收货地址"
Forms("申通打印模版").controls("sjtextbox").BindingField = "订单处理_Table1.收件人电话"
Dim doc As PrintDoc = sto.GernatePrintDoc()
doc.Preview

 

可能你这个窗口没有打开。

 

 

Forms("申通打印模版").Open()

Dim sto As WinForm.Form = Forms("申通打印模版")
Forms("申通打印模版").controls("sjrtextbox").BindingField = "订单处理_Table1.收货人"
Forms("申通打印模版").controls("sjdztextbox").BindingField = "订单处理_Table1.收货地址"
Forms("申通打印模版").controls("sjtextbox").BindingField = "订单处理_Table1.收件人电话"
Dim doc As PrintDoc = sto.GernatePrintDoc()
doc.Preview

本来的思路就没想过要让它打开，只是作为模版使用，不然的话，多几个快递模版那就麻烦了。

我只能打开了打印，打印完再关闭？代码已经做出来了。可以打印预览。

 

Forms("申通打印模版").Open()
Dim sto As WinForm.Form = Forms("申通打印模版")
Forms("申通打印模版").controls("sjrtextbox").BindingField = "订单处理_Table1.收件人"
Forms("申通打印模版").controls("sjdztextbox").BindingField = "订单处理_Table1.收件地址"
Forms("申通打印模版").controls("sjtextbox").BindingField = "订单处理_Table1.手机"
Dim doc As PrintDoc = sto.GernatePrintDoc()
doc.Preview
Forms("申通打印模版").Close()

谢谢Bin老师和狐爸，没问题了。