| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 700 人关注过本帖
标题:各位老大,有个问题请教
只看楼主 加入收藏
andyee
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2014-2-12
结帖率:75%
收藏
已结贴  问题点数:20 回复次数:11 
各位老大,有个问题请教
各位版主,教授,大家好

   我的一个抓取excel数据的程序的循环中,使用select 命令,每一轮循环都会弹出一个临时表,需要我手动关闭它,才能继续循环。
请问,这个我该加什么代码来维持正常循环

代码如下

   for i=2 to nrows step 1
    if used('hacfhzl') then
       select hacfhzl
    else
       select 0
       use hacfhzl
    endif
         m1=myexcel.cells(i,1).value        
         m2=myexcel.cells(i,2).value                 
         m20=myexcel.cells(i,20).value         
         m4=myexcel.cells(i,4).value                  
         m5=myexcel.cells(i,5).value   
         m6=myexcel.cells(i,6).value               
         m7=myexcel.cells(i,7).value                 
         m8=myexcel.cells(i,8).value         
         m9=myexcel.cells(i,9).value                  
         m10=myexcel.cells(i,10).value  
         m11=myexcel.cells(i,11).value               
         m12=myexcel.cells(i,12).value                 
         m13=myexcel.cells(i,13).value         
         m14=myexcel.cells(i,14).value                  
         m15=myexcel.cells(i,15).value         
         APPEND BLANK        
         REPLACE contractda WITH date(),stuffname with m20,agentname with m2,invcmpy with m4,pdt with m5,spec with m6,qty with m7,price with m8,daddress with m10,dname with m11,dphone with m12,iaddress with m13,iname with m14,iphone with m15,pvalue with qty*price
         rcn=recno()
         repl ordercode with str(rcn)
         sele stuffno as num from stuffinfo where stuffinfo.stuffname=hacfhzl.stuffname
         repl hacfhzl.stuffno with num
搜索更多相关主题的帖子: excel 
2014-03-05 18:11
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
set safe off   试过没

DO IT YOURSELF !
2014-03-05 18:12
andyee
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2014-2-12
收藏
得分:0 
我补充一下,就是这句红色的select..............运行之后会弹出一个临时的查询表
2014-03-05 18:17
andyee
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2014-2-12
收藏
得分:0 
我发两个截图,这个是sele 弹出的临时表
图片附件: 游客没有浏览图片的权限,请 登录注册
2014-03-05 18:22
andyee
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2014-2-12
收藏
得分:0 
这个是最终结果,最后能够做到我要的结果,只是每次弹出来受不了啊,set safety off 用了,不起作用
图片附件: 游客没有浏览图片的权限,请 登录注册
2014-03-05 18:24
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
select * from labels  into curs tmp

DO IT YOURSELF !
2014-03-05 18:24
andyee
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2014-2-12
收藏
得分:0 
以下是引用wp231957在2014-3-5 18:24:15的发言:

select * from labels  into curs tmp


哥,是应该把我的select 语句改成你写的这个格式?
2014-03-05 18:28
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
在最末 把红色的加上  其他的不动

DO IT YOURSELF !
2014-03-05 18:29
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
就是把输出结果转到游标 而不是类似brow的显现出来

DO IT YOURSELF !
2014-03-05 18:30
andyee
Rank: 1
等 级:新手上路
帖 子:90
专家分:0
注 册:2014-2-12
收藏
得分:0 
简直神了。。。
谢谢,我研究了一下午,问了N个所谓的“砖家”,终于搞定
2014-03-05 18:32
快速回复:各位老大,有个问题请教
数据加载中...
 
   



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

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