newstr=alltrim(str(newserial))
改为
newstr=TRANSFORM(newserial)

试试

谢谢老大！已经搞定
改问题不难，难在不知道错在什么地方
ps:顺便告诉大家，我测试 的结果，一旦数值超过2000000000，后面的结果就出错。不知道怎么会是这个数？

[ 本帖最后由 scilent 于 2013-8-15 20:44 编辑 ]

我写程序，每行代码都要验证，否则最后错在那里都不知道