金额的按位打印问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

你的列定为的是double 或integer 吧

GetDigit函数返回的是字符，现在显示的是返回字符的ASCII码的十进制值，如Tables("计数表").current("元") =GetDigit(i,0)，

GetDigit（i，0）应返回字符‘8’，它的ASCII码是56，

Tables("计数表").current("亿") =GetDigit(i,8)， GetDigit（i，8）应该返回字符 ‘￥’，ASCII码是65509？

你可以将程序改为

Tables("计数表").current("千") =Val(GetDigit(i,3)) 试一下

另外也可以将这些字段改为字符类型

你试一下，不知道是不是这个问题，

主题：金额的按位打印问题