- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81264)
-- 发布时间：2016/2/23 11:49:00
-- [求助]
老师：我按你昨天介绍的方法做了，还有些问题无法解决，一是：合计金额生成；二是：金额分位套打代码我按以前从表中提取数据的方法生成各位数，但是不行；三是：如何才能实现全部打印，我现在套用的代码只能打印第一页。现在这样，第一页如果不足三行，还会报错
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:报账单.table |
。请你帮我看一下如何修改，谢谢！
-- 发布时间：2016/2/23 12:09:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:报账单.table |
-- 发布时间：2016/2/24 17:01:00
--
谢谢老师帮助，根据老师的方法，我把《报账单》也设计好了，我还想把报账单按日期及支款方式汇总，将汇总数自动加到《小委托》表中最后两行，（各列分别为：1列、日期为汇总日期；2列：支款方式为汇总的支付中心转账或零余额转账；3列：附件张数为汇总附件张数；4列：编号自动生成；5列：项目摘要第一行为取报账款；8列：列支渠道为取现金；11列：支出金额第一行为汇总金额；15列：收款单位名称为报账员；16列：收款单位账号为报账员账号；17列：收款单位开户行为报账员开户行）。这样，打印大委托时就能自动筛选进去一并打印。另：大委托打印窗口中“上一行”"下一行“按钮没有第一行和最末行终止命令。窗口中大写金额前面空位能不能加”零“，小写合计金额能不能加"￥"？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:报账单2.table |
-- 发布时间：2016/2/24 17:33:00
--
1、要汇总的列，改成数值列，不能是字符列。
For Each ary() As String In DataTables("报账单").GetValues("日期|支款方式")
Dim d As Date = ary(0)
Dim s As String = ary(1)
Dim filter As String = "日期 = #" & d & "# and 支款方式 = \'" & s & "\'"
Dim fdr As DataRow = DataTables("小委托").find(filter & " and 项目摘要_第一行 = \'取报账款汇总\'")
If fdr Is Nothing Then
fdr = DataTables("小委托").AddNew
fdr("日期") = d
fdr("支款方式") = s
fdr("项目摘要_第一行") = "取报账款汇总"
End If
fdr("附件张数") = DataTables("报账单").Compute("sum(单据张数)", filter)
fdr("列支渠道_第一行") = "取现金"
Next
2、
第一行：
vars("idx") = 0
\'下面代码一样
最末页
Dim t As Table = Tables("大委托.小委托")
Dim idx = t.Rows.count Mod 3
vars("idx") = iif(idx = 0, t.Rows.count-3, (t.Rows.count \\ 3) * 3)
Dim count As Integer = 0
\'下面代码一样
-- 发布时间：2016/2/24 17:36:00
--
3、加零的问题
e.Form.controls("lbl_d" & Format(j, "00")).Text = CUNum(val(GetDigit(sum,8-j,"")))
4、加￥的问题，本来就加了 ￥的
-- 发布时间：2016/2/25 15:39:00
--
老师，请你帮我看一下《报账单》窗口中的“编号”按月生成编号怎样写代码，金额前能加"￥"。还有就是所有窗口打印都只能打印左边半部分，我以为是横向和纵向选择的问题，但怎么改变都不行，不知道是哪儿弄错了。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:报账凭证套打.table |
-- 发布时间：2016/2/25 15:48:00
--
1、生成编号，参考 http://www.foxtable.com/help/topics/2403.htm
2、e.Form.Controls("lbl_01").text = "￥" & sum
3、预览我测试没问题，打印按钮
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.AutoRotate = False
Doc.PageSetting.Landscape = True
doc.Print
4、4楼的代码，你全部写也没问题，反正都要计算一次。如果要加条件，就这样写
For Each ary() As String In DataTables("报账单").GetValues("日期|支款方式", Tables("报账单").Filter)
-- 发布时间：2016/2/25 16:36:00
--
生成编号，参考 http://www.foxtable.com/help/topics/2403.htm中没有这个实例，我这个生成编号是按每个窗口一页，每四行为一页，按页编号。
-- 发布时间：2016/2/25 16:42:00
--
1、做一个表记录便后，每打印一次，不断递增；
2、代码就是汇总到小委托里面啊。
-- 发布时间：2016/2/25 17:05:00
--
1、做记录表我还不知道怎样做怎样写代码，我只是能勉强看懂你写的代码，自已写还成问题，大都只能照搬。还是请老师指导，或帮写一下代码。