Foxtable(狐表)用户栏目专家坐堂 → 请问一下,有没有可能在一张纸上同时打印两张不一样的呢支piao呢,求解


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

主题:请问一下,有没有可能在一张纸上同时打印两张不一样的呢支piao呢,求解

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/12 11:53:00 [显示全部帖子]

1、如果是窗口打印,你可以在一个窗口里设计两张支piao的窗口内容,一次性打印;

 

2、如果要分开打印,你可以在打印第二个窗口的时候,把窗口最上方的内容清空,各个控件的位置向后移动上面空白的位置。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 11:00:00 [显示全部帖子]

以下是引用lzw001在2018/3/13 10:48:00的发言:
这里我的两张支piao整体结构是一样的,只是输入的内容不一样而已,为什么我先保存为文本,再导入后,还只是一张而已呢,而不是两张的

 

你说的是这个?http://www.foxtable.com/webhelp/scr/2413.htm

 

如果是,窗口模板不能实现【复制窗口控件】的功能的。你要再做一个一模一样的结构才行。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 11:21:00 [显示全部帖子]

可以,但是你显示的逻辑是什么?显示哪两行的数据?

 

1、label控件不要绑定表列;

 

2、在currentChanged或者click事件,编写代码,给窗口的label控件赋值,如

 

Forms("窗口1").Controls("Label1").Text = e.Table.current("第一列")

Forms("窗口1").Controls("Label2").Text = e.Table.current("第二列")


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 11:27:00 [显示全部帖子]

以下是引用lzw001在2018/3/13 11:26:00的发言:
比如:表格有20行,鼠标选中哪一行编辑,支piao就是哪一行的数据这样

 

你现在不是做到了?直接绑定表列。

 

否则,就参考8楼做法。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 11:34:00 [显示全部帖子]

那就查找到你需要的行,得到了数据,然后给控件赋值

 

http://www.foxtable.com/webhelp/scr/0553.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 15:06:00 [显示全部帖子]

比如代码
 

dim r1 As Row = e.Table.Rows(0)
Forms("窗口1").Controls("Label1").Text = r1("第一列")
Forms("窗口1").Controls("Label2").Text = r1("第二列")
dim r2 As Row = e.Table.Rows(1)
Forms("窗口1").Controls("Label3").Text = r2("第一列")
Forms("窗口1").Controls("Label4").Text = r2("第二列")


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 15:59:00 [显示全部帖子]

以下是引用lzw001在2018/3/13 15:15:00的发言:
这样的话,当鼠标选了某一行时,这两张支piao的内容还是一模一样的呀

 

1、不要绑定表啊;

 

2、红色代码自由处理啊

 

dim r1 As Row = e.Table.Rows(0)
Forms("窗口1").Controls("Label1").Text = r1("第一列")
Forms("窗口1").Controls("Label2").Text = r1("第二列")
dim r2 As Row = e.Table.Rows(1)
Forms("窗口1").Controls("Label3").Text = r2("第一列")
Forms("窗口1").Controls("Label4").Text = r2("第二列")


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 16:54:00 [显示全部帖子]

比如

 

dim r1 As Row = e.Table.Current
Forms("窗口1").Controls("Label1").Text = r1("第一列")
Forms("窗口1").Controls("Label2").Text = r1("第二列")
dim r2 As Row = e.Table.Rows(e.Table.Current.Index+1)
Forms("窗口1").Controls("Label3").Text = r2("第一列")
Forms("窗口1").Controls("Label4").Text = r2("第二列")

 

你还可以直接查 http://www.foxtable.com/webhelp/scr/0553.htm


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 17:58:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:支piao.foxdb


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/14 9:00:00 [显示全部帖子]

以下是引用lzw001在2018/3/14的发言:
谢谢,点击时出现了这个错误,是不是因为窗口没打开的原因呢


 

可以加上判断,如

 

If forms("某窗口").Opened Then

    '原来代码

End If


 回到顶部
总数 11 1 2 下一页