主题：分享:窗口piao据打印

根据贺老师的范例修改,全部可视化,无代码

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

点击浏览该文件:piao据设计.table

新版，顶！

顶

跟比赛似的，收藏，谢谢

谢谢分享！！

上一条、下一条 到头了的时候，给个提示显得更友好些,  如：下一条 代码：：：

With Tables("凭证")
    if .position < .rows.count-1
        .Position = .Position + 1
    else
        MessageBox.Show("这是最后一条记录，后面没有了!","提示")
    end if
End With

好啊,呵呵

piao据的出piao日期必须使用中文大写。
为防止变造piao据的出piao日期，在填写月、日时，月为壹、贰和壹拾的，日为壹至玖和壹拾、贰拾和叁拾的，应在其前加“零”；
日为 拾壹 至 拾玖 的，应在其前加“壹”。如1月15日，应写成零壹月壹拾伍日。再如10月20日，应写成零壹拾月零贰拾日。

e.Value = CCNumber(e.Value.Day)
e.Value = CCNumber(e.Value.Month)   这两个不完全符合要求的？

如：2009-10-20  按上面为： 贰零零玖 壹拾 贰拾   实际应该： 贰零零玖 零壹拾 零贰拾

年应该是:e.Value = Left(CCDate(e.Value),4)
至于月和日,我就不清楚了,要看银行要求了

我在网上查了一下,结果如下:
    piao据的出piao日期必须使用中文大写。为防止变造piao据的出禀日期，在填写月、日时，月为壹、贰和壹拾的，日为壹至玖和壹拾、贰拾和叁抬的，应在其前加“零”；日为抬壹至拾玖的，应在其前加“壹”。如1月15日，应写成零壹月壹拾伍日。再如10月20日，应写成零壹拾月零贰拾日。