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

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

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  按上面为： 贰零零玖 壹拾 贰拾   实际应该： 贰零零玖 零壹拾 零贰拾

正常打开呀？ 你指的是几楼的文件打开有问题？ 或你的foxtable不是最新版本？