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


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

主题：窗口录入与查询
美女呀，离线，留言给我吧！
云开月明
 小大  91楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/4/6 8:56:00 [显示全部帖子]

老师，
       窗口（如图03），报表模版（如图01），打印效果如（图02），窗口中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()

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

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

图片点击可在新窗口打开查看此主题相关图片如下：01.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  92楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/4/6 9:33:00 [显示全部帖子]

老师，
加了<ALL>范围，没用

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

图片点击可在新窗口打开查看此主题相关图片如下：04.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  93楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，
       我把订单审核窗口_Table1写进模存板就出问题，根据不存在这个表，我应该在代码中如何添加按订单编号分组？
我考虑过用窗口打印，但是公司LOGO怎么弄进窗口？
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  94楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  95楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看 
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  96楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  97楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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

图片点击可在新窗口打开查看此主题相关图片如下：图一.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  98楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/4/7 8:57:00 [显示全部帖子]

老师，
图片点击可在新窗口打开查看此主题相关图片如下：图二.png
图片点击可在新窗口打开查看
      你误会我的意思了，有10行数据可以打印十行，没有10行不要补空行，是留空白。要图一的效果，
图片点击可在新窗口打开查看此主题相关图片如下：图一.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  99楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/4/7 9:32:00 [显示全部帖子]

老师，
       Sheet(8,0).Value = "<订单审核窗口_Table1,采购订单编号,-10>" ，打印效果是图二，

此主题相关图片如下：图二.png
按此在新窗口浏览图片
需要图一的效果，并不是普通的补空行，如果有十行，这页纸可以打10行，没10行，不用空格补足，但审批人那一条的位置是不变的，中间空白而不是空格。（如图一）

此主题相关图片如下：图一.png
按此在新窗口浏览图片
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  100楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/4/7 9:50:00 [显示全部帖子]

老师，
      我想用窗口打印实现，但是公司LOGO不知道怎样才能弄上去？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询