大家好,我用的是vfp+sql2000,在做软件的时候遇到一个问题不能解决,望大家帮助.
IF MESSAGEBOX('这是对收费员'+alltrim(thisform.text2.value)+'数据的接收,是否继续',4+32,'提示信息')=6
set multilock on
CURSORSETPROP('BUFFERING',5,'shoufei')
*sele shoufei
*=REQUERY()
sele dlxz
do while !eof()
aa1=alltrim(dlxz.c1)
aa2=alltrim(dlxz.c3)
aa3=alltrim(dlxz.c4)
aa4=left(alltrim(dlxz.c15),4)
aa5=substr(alltrim(dlxz.c15),5,2)
aa6=alltrim(dlxz.c5)
aa7=dlxz.n11
aa8=dlxz.n13
aa9=dlxz.n14
aa10=dlxz.j21
sele shoufei
insert into shoufei(orders,name,louhao,cyear,cdate,address,befinger1,finger1,bliang,sfrice) value(aa1,aa2,aa3,aa4,aa5,aa6,aa7,aa8,aa9,aa10)
IF TABLEUPDATE(.T.)=.F.
??chr(7)
=tablerevert(.t.)
=MESSAGEBOX('保存过程中出现错误(可能是网络忙),保存未成功,请再试一次!',0+48,'提示')
endif
sele dlxz
skip
loop
enddo
=messagebox('接收数据完毕',0+48,'提示信息')
endif
在这期间,总出现MESSAGEBOX里的错误提示,或"连接数据忙"的提示,希望大家指点.