Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口录入与查询


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

主题：窗口录入与查询
帅哥哟，离线，有人找我吗？
有点色
 小大  181楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 9:37:00 [只看该作者]

 如果，你需要根据订单编号生成数据，你模板设计就不正确。

 

 参考分组设计 http://www.foxtable.com/webhelp/scr/1542.htm

 
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  182楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/4/6 9:58:00 [只看该作者]

老师，
       我把订单审核窗口_Table1写进模存板就出问题，根据不存在这个表，我应该在代码中如何添加按订单编号分组？
我考虑过用窗口打印，但是公司LOGO怎么弄进窗口？
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  183楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 10:06:00 [只看该作者]

以下是引用云开月明在2017/4/6 9:58:00的发言：
老师，
       我把订单审核窗口_Table1写进模存板就出问题，根据不存在这个表，我应该在代码中如何添加按订单编号分组？
我考虑过用窗口打印，但是公司LOGO怎么弄进窗口？

 

你先在模板里面设计好，能实现功能以后，再改成代码的方式。

 

不会做上传实例。
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  184楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/4/6 12:46:00 [只看该作者]

老师，
       基于图一报表模板，打印图二窗口中的TABLE,打印代码如下：
Dim Book As New XLS.Book(ProjectPath & "Attachments\采购订单一.xls")
Dim fl As String = ProjectPath & "Reports\采购订单一.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,0).Value = "<订单审核窗口_Table1>" 
Sheet(12,0).Value = "<订单审核窗口_Table1>" 
Book.Build() 
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()
请问如何修改代码？还有就是能打十行，不足也不补空行，以空白区域显示，如何设置？

图片点击可在新窗口打开查看此主题相关图片如下：12.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：11.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  185楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 14:54:00 [只看该作者]

补空行参考

 

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

 

先把你的excel模板，替换成窗口的表名，然后测试是否成功，成功以后，直接拷贝过来赋值即可。

 

Sheet(1,0).Value = "aaa" 
Sheet(2,0).Value = "bbb" 
Sheet(3,0).Value = "ccc" 

 

 
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  186楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/4/6 16:20:00 [只看该作者]

老师，
       你好！
        是要达到图一的打印效果，而不是图二补空行的效果。
打印代码如下：
Dim Book As New XLS.Book(ProjectPath & "Attachments\采购订单一.xls")
Dim fl As String = ProjectPath & "Reports\采购订单一.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,0).Value = "<GroupHeader,订单审核窗口_Table1,采购订单编号,1>" 
Sheet(7,0).Value = "<GroupHeader,订单审核窗口_Table1,采购订单编号>" 
Sheet(8,0).Value = "<订单审核窗口_Table1,采购订单编号>" 
Sheet(9,0).Value = "<GroupFooter,订单审核窗口_Table1,采购订单编号>" 
Sheet(21,0).Value = "<GroupFooter,订单审核窗口_Table1,采购订单编号,1>" 
Book.Build() 
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()
可不可通过代码打印出图一的效果。

图片点击可在新窗口打开查看此主题相关图片如下：001.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：00.png
图片点击可在新窗口打开查看 
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  187楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 16:31:00 [只看该作者]

不是说了吗？

 

Sheet(8,0).Value = "<订单审核窗口_Table1,采购订单编号,-10>" 
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  188楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/4/6 16:56:00 [只看该作者]

老师，
       Sheet(8,0).Value = "<订单审核窗口_Table1,采购订单编号,-10>" ，打印效果是图二，
需要图一的效果，并不是普通的补空行，如果有十行，这页纸可以打10行，没10行，不用空格补足，但审批人那一条的位置是不变的，中间空白而不是空格。（如图一）

图片点击可在新窗口打开查看此主题相关图片如下：图二.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：图一.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  189楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 17:10:00 [只看该作者]

哦，窗口表补空行是bug。要改成主表的。你控制后筛选->也就是把<All>改成主表的Filter

 

试试，不行就上传实例

 

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\采购订单一.xls")
Dim fl As String = ProjectPath & "Reports\采购订单一.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(8,9).Value = "<" & Tables("订单列表").Filter & ">" 
Book.Build() 
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  190楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/4/7 8:20:00 [只看该作者]

老师，
      早上好！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:采购.rar

      订单审核窗口，按订单编号加载数据，要求打印效果如图一（有十行数据能打印十行，没有就留空白，而不是空行），上传实例

图片点击可在新窗口打开查看此主题相关图片如下：图一.png
图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询