主题:vfp程序设计。。。急死了。。。
以下是一张表单一个command中的click中的码
用于给一张数据表添加记录
问题出现在数据能添进去
不过不能接着添到旧的记录以后
而是空了几行再添加
请帮忙
t1=alltrim(thisform.text1.value)
t2=alltrim(thisform.text2.value)
t3=alltrim(thisform.text3.value)
t4=alltrim(thisform.text4.value)
t5=alltrim(thisform.text5.value)
if len(t1)=0 or len(t2)=0 or len(t3)=0 or len(t4)=0 or len(t5)=0
=messagebox('输出项不能为空!',0+16,'错误!')
thisform.text1.setfocus
else
with thisform
.text1.value=''
.text2.value=''
.text3.value=''
.text4.value=''
.text5.value=''
endwith
thisform.text1.setfocus
insert into 员工(工号,姓名,出生年,籍贯,手机号)value(t1,t2,t3,t4,t5)
endif
用于给一张数据表添加记录
问题出现在数据能添进去
不过不能接着添到旧的记录以后
而是空了几行再添加
请帮忙
t1=alltrim(thisform.text1.value)
t2=alltrim(thisform.text2.value)
t3=alltrim(thisform.text3.value)
t4=alltrim(thisform.text4.value)
t5=alltrim(thisform.text5.value)
if len(t1)=0 or len(t2)=0 or len(t3)=0 or len(t4)=0 or len(t5)=0
=messagebox('输出项不能为空!',0+16,'错误!')
thisform.text1.setfocus
else
with thisform
.text1.value=''
.text2.value=''
.text3.value=''
.text4.value=''
.text5.value=''
endwith
thisform.text1.setfocus
insert into 员工(工号,姓名,出生年,籍贯,手机号)value(t1,t2,t3,t4,t5)
endif