回 帖 发 新 帖 刷新版面

主题: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

回复列表 (共3个回复)

沙发

ValueS

不过按道理不应该会有空行,
用调试器看看,
或者在insert前后都加一行
messagebox(reccount("员工"))

板凳

是不是文本框也绑定了表!

3 楼

要及时回帖,和给网友评分!
学会尊敬帮助你地人的劳动!

我来回复

您尚未登录,请登录后再回复。点此登录或注册