Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 打印单据


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

主题：[求助] 打印单据
帅哥哟，离线，有人找我吗？
Liuxinyu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1634 威望：0 精华：0 注册：2012/1/4 13:13:00 		[求助] 打印单据  发帖心情 Post By：2021/11/18 17:29:00 [只看该作者]

请教大师：
按下面的代码打印单据，仅单据数量与选择行相符，但是单据号都是第一张的单据号，全部单据内容相同，需要如何修正？

Dim tb As Table = Tables("存货账")
For nr As Integer = tb.TopRow To tb.BottomRow
    Dim r As Row = tb.Current
    Dim chk As WinForm.CheckBox = Forms("存货明细").Controls("CheckBox2")
    Dim sq As String = "[出入类型] = '" & r("出入类型") & "' AND [单据号] = '" & r("单据号") & "'"
    Dim Book As New XLS.Book(ProjectPath & "Attachments\采购入库单.xls")
    Dim fl As String = ProjectPath & "Reports\采购单.xls"
    book.AddDataTable("存货账","ERP","Sel ect * from {存货账} where " & sq)
    Book.Build()
    Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
    Book.Sheets(0).PrintSetting.CenterVertical = True
    Book.Sheets(0).PrintSetting.CenterHorizontal = True
    'Book.Sheets(0).PrintSetting.PrintHeaders = True
    Book.Save(fl)
    Dim Proc As New Process
    Proc.File = fl
    If chk.Checked Then
        Proc.Verb = "Print" '指定动作
    End If
    Proc.Start()
Next

tb.Focus
Return "OK"
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105951 积分：538830 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/18 17:37:00 [只看该作者]

Dim tb As Table = Tables("存货账")
For nr As Integer = tb.TopRow To tb.BottomRow
    Dim r As Row = tb.rows(nr)
 回到顶部
帅哥哟，离线，有人找我吗？
Liuxinyu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1634 威望：0 精华：0 注册：2012/1/4 13:13:00 		  发帖心情 Post By：2021/11/19 14:04:00 [只看该作者]

你好！将此条
Dim r As Row = tb.Current
更改为
Dim tb As Table = Tables("存货账")
For nr As Integer = tb.TopRow To tb.BottomRow
    Dim r As Row = tb.rows(nr)

结果仍然没有改变。还请提供解决方法
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105951 积分：538830 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/19 14:55:00 [只看该作者]

我测试没有问题，请上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
Liuxinyu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1634 威望：0 精华：0 注册：2012/1/4 13:13:00 		  发帖心情 Post By：2021/11/19 18:45:00 [只看该作者]

你好！
  我将上述过程放在函数中，每张单据的内容不同，但单据号码不变，如何解决？


案例：

[此贴子已经被作者于2021/11/22 8:48:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：2021/11/19 22:52:00 [只看该作者]

没有道理不行啊， 做个例子发上来测试吧

 回到顶部
帅哥哟，离线，有人找我吗？
Liuxinyu
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1634 威望：0 精华：0 注册：2012/1/4 13:13:00 		  发帖心情 Post By：2021/11/22 15:14:00 [只看该作者]

附件上传后，怎么没有显示

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105951 积分：538830 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/22 15:24:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

多试几次直到输入框有上传的链接，另外注意单个文件不能超过2M
 回到顶部
帅哥哟，离线，有人找我吗？
Liuxinyu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1634 威望：0 精华：0 注册：2012/1/4 13:13:00 		[求助] 打印单据  发帖心情 Post By：2021/11/23 19:28:00 [只看该作者]

示例
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:单据打印案例.zip
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105951 积分：538830 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/23 20:54:00 [只看该作者]

2个问题
1、模板使用了直接引用的用法（http://www.foxtable.com/webhelp/topics/1395.htm），这种用法仅适用已经加载的表格，取的是已经加载的表格的数据，和后台数据无关
2、这种模板，不适合单表的输出，会有问题的。应该是关联表的方式，类似这种：http://www.foxtable.com/webhelp/topics/0204.htm。页首行和页尾行应该是从父表取数据
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询