主题：[求助]

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

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

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

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

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

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

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

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

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

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

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

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

我想到了一个办法，但不知道该怎样写代码。取年月为前6位或只取月份为前两位，当月按日提取“报账单”中行数，用行数除以4收尾取整，求当月之和作为编号。老师你看能实现吗？

我想购买你们的开发版软件，但我想必须得到你们技术上的支持，或与你们合作，行吗？

按照12楼代码改成：Dim str As String = Tables("报账单").Rows(0)("日期")

If str > "" Then
    str = format(Date.today, "yyyyMM") & format(cint(str.SubString(7))+1, "000")
Else
    str = format(Date.today, "yyyyMM") & format(1, "000")
End If

Tables("报账单").Rows(0)("编码") = str

同时在“报账单”中增加编号列，我把上面代码写到表事件或窗口事件中都不能正确生成编号。请老师助。

我加到窗口的afterload
此主题相关图片如下：bm.png

事件中的，不知道加对没有，而且有"报账单"中增加了“编码”列，生成编码是这样的：

报账单编号应是当天每4行一个编号，在上次编号基础上+1，不足4行的也要生成一个编号才对。