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
表单如下，请前辈帮助

1.楼主的车数【数值型】,吨数【数值型】，对应的.text接收数据类型不对，可以在表单的init中设置：
thisform.text5.Value=0
thisform.text8.Value=0
2.数值型不能用alltrim()函数：
        INSERT INTO t2(卸车日期,发站,托运人,到站,到局,品名,车种,车数,吨数,收货人,卸车地点,备注);
         VALUES (thisform.text1.value,alltrim(thisform.text2.value),alltrim(thisform.text3.value),;
        alltrim(thisform.text4.value),alltrim(),alltrim(thisform.text6.value),;
        ALLTRIM(thisform.text7.value),thisform.text8.value,thisform.text5.value,alltrim(thisform.text9.value),;
        alltrim(),alltrim(thisform.text10.value))

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

T2表中【卸车日期】字段已经是日期型的了。

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

可以保存，谢谢qjbzjp版主！