标题:有个问题请大家帮助
只看楼主
dazhu0038
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-11-19
 问题点数:0 回复次数:0 
有个问题请大家帮助

大家好,我用的是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里的错误提示,或"连接数据忙"的提示,希望大家指点.

搜索更多相关主题的帖子: 软件 提示信息 收费员 
2007-11-19 10:16



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-187111-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.389958 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved