| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 559 人关注过本帖
标题:有个问题请大家帮助
只看楼主 加入收藏
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
快速回复:有个问题请大家帮助
数据加载中...
 
   



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

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