if empty(thisform.TEXT1.value)=.f.  
    a=messagebox('确定要添加记录吗？',32+4,'系统提示')
    if a=11
        sele yhw
        INSERT INTO yhw(RQ【取的是系统日期】,JHH,TYR,DZ,DJ,PM,PZCZ,PZCS,SHR,ZCDD,BZ) ;
         VALUES(alltrim(thisform.text1.value),alltrim(thisform.text2.value),alltrim(thisform.text3.value),;
        alltrim(thisform.text4.value),alltrim(【绑定的是表字段】.value),thisform.text6.value,;
        alltrim(thisform.text7.value),val(thisform.text8.value),alltrim(thisform.text9.value),;
        alltrim(【绑定的是表字段】.value),alltrim(thisform.text11.value))
        messagebox('保存记录成功！',64,'系统提示')
    endif
else
    messagebox('请输入计划号！',16,'系统提示')
endif

 ThisForm.Refresh
以上代码是我在录入表单的保存命令的代码，单击保存后，没有错误提示，但yhw表内却没有一条记录保存，不知道是什么原因，请指教。
谢谢了!

a=messagebox('确定要添加记录吗？',32+4,'系统提示')
a的值是6（是）和7（否）。

不知道楼主的 a=11 依据的是什么！ messagebox（）好像没有返回这个值的。

问题不在这里，原来是a=6，也不会保存记录，不知道问题出在哪？
如果加use打开表，会出现文件已经打开的错误。

首先将A=11  修改为 A=6

其次先试试 INSERT INTO yhw (RQ) VALUES (alltrim(thisform.text1.value))
           
            BROW
看看yhw 究竟有没有添加记录

再试试 INSERT INTO yhw (RQ,JHH) VALUES (alltrim(thisform.text1.value)),alltrim(thisform.text2.value))
           
            BROW
看看yhw 究竟有没有添加记录.....

初看看你的INSERT INTO 命令使用没有问题,只能加一个 BROW 命令当场看看效果了.提供一个思路供你检查问题.

除去楼上的建议：
1、建几个内存变量，与那几个文本框绑定，用内存变量来向表插入记录。

2、既然组合框和表绑定了，何不直接引用字段值来向表 yhw插入记录。或者你换用displayvalue试试看。

先修改A=6，再检查表是否打开：
IF !USED("yhw")
    USE yhw IN 0
ENDIF
再执行你的其它代码。

还是不行！！！！！！！！！！！

a=messagebox('确定要添加记录吗？',32+4,'系统提示')  有没有执行？
因为您只说了没有错误提示，没有说这个系统提示有没出现，如果这个提示没出现，那就得检查一下您的IF条件相应的TEXT1的情况了（您说的TEXT1的值是系统日期）。其实您的思路应该是“计划号”不为空才保存，但您的程序却是日期（也就是TEXT1）不为空则保存，表述和思路不一致（当然这并不影响程序的执行，只是可能达不到您的要求）
另外您还应该确定一下有没有别的程序（或表单）在调用该表。


[ 本帖最后由 啸凡 于 2011-1-1 21:18 编辑 ]