IF !USED("t2")
    USE t2 IN 0
ENDIF
if empty(thisform.TEXT1.value)=.f.  
    a=messagebox('确定要添加记录吗？',32+4,'系统提示')
    if a=6
        sele t2
        INSERT INTO t2(卸车日期【日期型】,发站,托运人,到站,到局,品名,车种,车数【数值型】,吨数【数值型】,收货人,卸车地点,备注);
         VALUES (alltrim(thisform.text1.value),alltrim(thisform.text2.value),alltrim(thisform.text3.value),;
        alltrim(thisform.text4.value),alltrim(),alltrim(thisform.text6.value),;
        alltrim(thisform.text7.value),alltrim(thisform.text8.value),alltrim(thisform.text5.value),alltrim(thisform.text9.value),;
        alltrim(),alltrim(thisform.text10.value))
        messagebox('保存记录成功！',64,'系统提示')
    endif
else
    messagebox('请输入卸车日期！',16,'系统提示')
endif

 ThisForm.Refresh
表单如下，请前辈帮助

还有一个问题请教版主，如果我把【卸车日期】字段改为日期型，以便日后按时间段查询，命令要怎么改动啊？
谢谢！

字段设置为文本格式，我已经将系统时间设为
thisform.text1.value=dtoc(DATE(),1+1)
这样以后可以按时间段进行查询吗？
谢谢！

可以保存，谢谢qjbzjp版主！