表单写数据到表写不进行去
请大家帮个忙,我是vfp初学者,从表单写数据到表写不进行去.代码如下:
Locate for 出厂编号==Val(thisform.Txt出厂编号.Value)
IF Found()=.f.
go bottom
append blank
dimemsion m.memadd[9]
m.memadd[1]=val9thisdorm.Txt出厂编号.value)
m.memadd[2]=val9thisdorm.Txt车台名称.value)
m.memadd[3]=val9thisdorm.Txt生产厂家.value)
m.memadd[4]=val9thisdorm.Txt出厂日期.value)
m.memadd[5]=val9thisdorm.Txt配发日期.value)
m.memadd[6]=val9thisdorm.Txt启用日期.value)
m.memadd[7]=val9thisdorm.Txt底盘编号.value)
m.memadd[8]=val9thisdorm.Txt服役现况.value)
m.memadd[9]=val9thisdorm.Txt所在单位.value)
if messagebox("本车台资料已经存在!",0,"出厂编号")=1
return
endif
endif
return
thisform.refresh
[ 本帖最后由 hus720814 于 2010-8-24 15:49 编辑 ]