我作了个表单，其中有条命令是：
repl all ydsj with ctod(substr(alltrim(thisform.Text5.value),6,2)+"/"+right(alltrim(thisform.Text5.value),2)+"/"+left(alltrim(thisform.Text5.value),4))
表单单独运行时是正确的。但编译后在程序中运行，结果ydsj值是空的，不知何故？请高手不吝赐教。

以后凡是遇到这种问题，在这行前面加一句MESSAGEBOX(ThisForm.Text5.Value)，运行看看那是什么。

显示没有错，比如2012.03.13。单独运行ydsj为03/13/12,程序运行后为  /  /   .

并且我建议你不要把后面那串东西写在replace all的后面，拖慢速度不说，还不好调试，先把它赋值给一个变量，再replace就好了，这样要检查那个东西是否正确都好做。为什么会拖慢速度呢？这样的语句每次循环迭代都要到ThisForm.Text5控件中求取.Value三次，三次事小，但这样到控件中取值是远程地址运算，但如果事先赋值给一个内存变量，这个变量就等于常数，replace all时就不需要再动态求值，数据库越大，效果差异越显著。因此你不要以为这样一行写完就显得很高明。

后者不是错了么？你看看代码中取的年份位数是几位？实际是几位？那是字符串呀，两次显示的字符串都不一样，不错才怪。

也许跟日期显示格式设置有关。

set century 命令
SET DATE 命令
请楼主看下这两个命令的使用方法
或者在“工具”标题“选项”中的“区域”页框中，设置日期格式。

[ 本帖最后由 sdta 于 2012-3-13 23:21 编辑 ]

建议表单设置Text5文本框的时候，赋予初值Date()，后面的事情就好办了：repl all ydsj with thisform.Text5.value

首先十分感谢你的帮助。恕我愚钝，我代码中年份取4位，单独运行得出的结果是日期型的，显示为03/13/12,没有错啊！但在程序中运行后，ydsj这个日期型字段的值是空的显示为  /  /   .

现在只看实际显示的结果，你的代码从Text5.Value的第6位开始取2位、最右边取2位、再取最左边的4位，你根据显示的Text5.Value字符串自己取一取看那是什么？

[ 本帖最后由 TonyDeng 于 2012-3-13 23:25 编辑 ]