数据录入保存提示函数的值,类型或数目无效
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
表单如下,请前辈帮助
yhwxc.rar
(174.6 KB)