Foxtable(狐表)用户栏目专家坐堂 → [求助] 请问是如何让当前窗口的控件和另一个窗口的表格绑定?


  共有6532人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
jimmyhwang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
[求助] 请问是如何让当前窗口的控件和另一个窗口的表格绑定?  发帖心情 Post By:2014/3/13 3:00:00 [显示全部帖子]

 请问是如何让当前窗口的控件和另一个窗口的表格绑定? 比如,我在一个窗口制作了一个table。另外又做了一个窗口作为piao据打印的模板。选择表格的行,并且通过piao据窗口打印。用在快递单打印上的。那个520的打印系统是不是这样做的?打不开了撒。。知道的前辈告诉一下。谢谢~


 回到顶部
帅哥哟,离线,有人找我吗?
jimmyhwang
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
  发帖心情 Post By:2014/3/13 13:39:00 [显示全部帖子]

我做了个例子。实现功能:订单处理并且通过申通窗口piao据模版打印。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:piao据打印小例.rar


 回到顶部
帅哥哟,离线,有人找我吗?
jimmyhwang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
  发帖心情 Post By:2014/3/13 14:29:00 [显示全部帖子]

超版一语道破啊。。我先试试。

 回到顶部
帅哥哟,离线,有人找我吗?
jimmyhwang
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
  发帖心情 Post By:2014/3/14 1:38:00 [显示全部帖子]

请问bin老师是绑定之后是如何引用实例的?搞不懂撒~

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
jimmyhwang
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
  发帖心情 Post By:2014/3/14 12:50:00 [显示全部帖子]

哪里缺少什么了?


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140314124902.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
jimmyhwang
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
  发帖心情 Post By:2014/3/14 12:58:00 [显示全部帖子]

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
jimmyhwang
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
  发帖心情 Post By:2014/3/14 13:05:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
jimmyhwang
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
  发帖心情 Post By:2014/3/14 13:16:00 [显示全部帖子]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
jimmyhwang
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:178 积分:1228 威望:0 精华:0 注册:2014/1/23 0:48:00
  发帖心情 Post By:2014/3/14 13:42:00 [显示全部帖子]

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

 回到顶部