- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]这种收据打印功能怎么实现 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48601)
-- 发布时间：2014/4/1 21:16:00
-- [求助]这种收据打印功能怎么实现
这种收据打印功能怎么实现？
同一个单号，当“是否打印”=true时，自动根据“设备款”列、“保证金”列、“运费”列的值生成三张收据，当这三列当中值为0或空时，就不生成跟这列有关的收据，只生成有数值的其他列的收据
-- 发布时间：2014/4/2 8:30:00
--
你是窗口打印 还是模板打印 还是专业报表? 有例子会比较好办
-- 发布时间：2014/4/2 9:17:00
--
在窗口套打收据，希望实现如下功能：
当窗口中“单号001”中“是否打印”=true时，因为“设备款”列、“保证金”列、“运费”列都有数字时，所以自动生成三张收据（收据模板见附件，“收款事由”项等于列名（设备款或者保证金或者运费）
-- 发布时间：2014/4/2 9:18:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:收据打印.foxdb |
-- 发布时间：2014/4/2 9:35:00
--
是不是可以根据收款明细先生成收据明细，这代码咋写
此主题相关图片如下：收款明细.png
此主题相关图片如下：收据明细列表.png
-- 发布时间：2014/4/2 9:55:00
--
你打印窗口是空白的啊,不太理解你想实现什么效果.
-- 发布时间：2014/4/2 9:59:00
--
总金额=设备款+保证金+运费，如果设备款、保证金、运费这三项都有数字，那么针对该单号，需开三张收据
-- 发布时间：2014/4/2 10:02:00
--
开3张什么样的收据?
判断是否3个列都有值很简单, 打印3次 或者打印3个不同的窗口也很简单.
-- 发布时间：2014/4/2 10:07:00
--
可能我没说清楚，那么在5楼所附截图中，根据“收款明细”表怎样生成“收据明细列表”，帮忙写一下代码
-- 发布时间：2014/4/2 10:11:00
--
以下是引用lwj396086371在2014-4-2 10:07:00的发言：
可能我没说清楚，那么在5楼所附截图中，根据“收款明细”表怎样生成“收据明细列表”，帮忙写一下代码
可能我没说清楚，那么在5楼所附截图中，根据“收款明细”表怎样生成“收据明细列表”，帮忙写一下代码
Dim cs() As String = {"设备款","保证金","运费"}
For Each dr As DataRow In DataTables("收款明细").Select("是否打印 = true", Tables("收款明细").Filter)
For Each c As String In cs
If dr.IsNull(c) = False Then
Dim ndr As DataRow = DataTables("收据明细").AddNew
ndr("单号") = dr("单号")
ndr("客户名称") = dr("客户名称")
ndr("收款事由") = c
ndr("金额") = dr(c)
End If
Next
Next