表单写数据到表写不进行去
请大家帮个忙,我是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[1]=val9thisdorm.Txt车台名称.value)
m.memadd[1]=val9thisdorm.Txt生产厂家.value)
m.memadd[1]=val9thisdorm.Txt出厂日期.value)
m.memadd[1]=val9thisdorm.Txt配发日期.value)
m.memadd[1]=val9thisdorm.Txt启用日期.value)
m.memadd[1]=val9thisdorm.Txt底盘编号.value)
m.memadd[1]=val9thisdorm.Txt服役现况.value)
m.memadd[1]=val9thisdorm.Txt所在单位.value)
if messagebox("本车台资料已经存在!",0,"出厂编号")=1
return
endif
endif
return
thisform.refresh