主题：[求助]

老师：我按你昨天介绍的方法做了，还有些问题无法解决，一是：合计金额生成；二是：金额分位套打代码我按以前从表中提取数据的方法生成各位数，但是不行；三是：如何才能实现全部打印，我现在套用的代码只能打印第一页。现在这样，第一页如果不足三行，还会报错

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报账单.table

。请你帮我看一下如何修改，谢谢！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报账单.table

谢谢老师帮助，根据老师的方法，我把《报账单》也设计好了，我还想把报账单按日期及支款方式汇总，将汇总数自动加到《小委托》表中最后两行，（各列分别为：1列、日期为汇总日期；2列：支款方式为汇总的支付中心转账或零余额转账；3列：附件张数为汇总附件张数；4列：编号自动生成；5列：项目摘要第一行为取报账款；8列：列支渠道为取现金；11列：支出金额第一行为汇总金额；15列：收款单位名称为报账员；16列：收款单位账号为报账员账号；17列：收款单位开户行为报账员开户行）。这样，打印大委托时就能自动筛选进去一并打印。另：大委托打印窗口中“上一行”"下一行“按钮没有第一行和最末行终止命令。窗口中大写金额前面空位能不能加”零“，小写合计金额能不能加"￥"？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报账单2.table

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

'下面代码一样

3、加零的问题

 

    e.Form.controls("lbl_d" & Format(j, "00")).Text = CUNum(val(GetDigit(sum,8-j,"")))

 

4、加￥的问题，本来就加了 ￥的

老师，请你帮我看一下《报账单》窗口中的“编号”按月生成编号怎样写代码，金额前能加"￥"。还有就是所有窗口打印都只能打印左边半部分，我以为是横向和纵向选择的问题，但怎么改变都不行，不知道是哪儿弄错了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报账凭证套打.table

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)

 

生成编号，参考 http://www.foxtable.com/help/topics/2403.htm中没有这个实例，我这个生成编号是按每个窗口一页，每四行为一页，按页编号。

1、做一个表记录便后，每打印一次，不断递增；

 

2、代码就是汇总到小委托里面啊。

1、做记录表我还不知道怎样做怎样写代码，我只是能勉强看懂你写的代码，自已写还成问题，大都只能照搬。还是请老师指导，或帮写一下代码。