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