| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5010 人关注过本帖
标题:无足够的内存完成此操作
只看楼主 加入收藏
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
楼主都没应答大家,就开问第二个问题了。

授人以渔,不授人以鱼。
2012-10-15 12:33
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
楼主问题解决没
2012-10-15 18:22
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
我们大家干着急!

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2012-10-15 21:10
XQXOXQX
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-10-14
收藏
得分:0 
回复 9楼 wengjl
SELECT a标准定位表
LOCATE FOR 位置="EAAA-1"  REST
TEX90=ALLTRIM(方向)
TEX87=ALLTRIM(位置)
SELECT 数据V5
LOCATE FOR V5="." REST
SKIP -28
SCAN REST
IF V5="."
EXIT
ENDIF
OK01=V1
SKIP
OK02=V2
OK03=V4
SKIP
OK04=V4
OK05=V5
SKIP
OK06=V3
OK07=V5
SKIP
OK08=V3
SKIP
OK09=V1
OK10=V4
SKIP
OK11=V3
OK12=V4
OK13=V5
SKIP
OK14=V3
SKIP 2
OK15=V2
OK16=V3
SKIP
OK17=V3
SKIP
OK18=V1
OK19=V4
SKIP
OK20=V2
OK21=V5
SKIP
OK22=V1
SKIP
OK23=V2
OK24=V3
SKIP
OK25=V1
SKIP
OK26=V1
OK27=V4
SKIP
OK28=V1
OK29=V2
SKIP
OK30=V1
OK31=V5
SKIP
OK32=V3
OK33=V5
SKIP
OK34=V3
OK35=V5
SKIP
OK36=V1
SKIP
OK37=V2
SKIP
OK38=V2
OK39=V4
SKIP
OK40=V1
OK41=V5
SKIP
OK42=V4
OK43=V5
SKIP
OK44=V2
SKIP
OK45=V2
OK46=V3
DO VV818
ENDSCAN
DO UVU88
这是其中的一个,向这样的有四万个







PROCEDURE VV818
SELECT c公用表
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK46)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK45)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK44)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK43)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK42)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK41)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK40)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK39)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK38)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK37)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK36)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK35)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK34)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK33)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK32)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK31)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK30)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK29)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK28)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK27)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK26)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK25)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK24)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK23)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK22)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK21)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK20)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK19)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK18)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK17)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK16)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK15)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK14)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK13)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK12)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK11)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK10)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK09)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK08)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK07)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK06)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK05)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK04)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK03)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK02)
APPEND BLANK
REPLACE 数 WITH ALLTRIM(OK01)
RETURN


PROCEDURE UVU88
SELECT a标准定位表
TEX90=ALLTRIM(方向)
TEX87=ALLTRIM(位置)
SELECT c公用表
GO TOP
ASW=0
SCAN
IF 期号=0 AND 数<STR(0)
EXIT
ENDIF
ASW=ASW+1
REPLACE 序号 WITH ASW
ENDSCAN
*****
GO TOP
LOCATE FOR EOF()
SKIP -1
UYH=ALLTRIM(数)
GO TOP
LOCATE FOR 序号>46 OR 数="."
IF FOUND()
SELECT 统计
LOCATE FOR 位置=TEX87 AND 方向=TEX90 REST
REPLACE 数值 WITH UYH
REPLACE 标准 WITH "K"
ELSE
SELECT 统计
LOCATE FOR 位置=TEX87 AND 方向=TEX90 REST
REPLACE 数值 WITH UYH
ENDIF
SELECT c公用表
SET SAFETY OFF
ZAP
*CLEAR MEMORY
SELECT a标准定位表
SKIP
TEX90=ALLTRIM(方向)
TEX87=ALLTRIM(位置)
RETURN
2012-10-18 18:48
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:1 
楼主采用4万个那样的程序完成自己的功能,自有其考虑,不好多说什么。但有没有这样的可能性:表的设计有缺陷?程序设计的思路有问题?

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2012-10-18 20:02
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
回复 15楼 Tiger5392
说的很有道理
2012-10-18 20:13
wjp456789
Rank: 5Rank: 5
来 自:四川成都
等 级:职业侠客
威 望:1
帖 子:345
专家分:330
注 册:2012-6-25
收藏
得分:1 
难道是游戏?

我是来向高手学习的!
2012-10-18 20:26
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:1 
我的感觉就一个字:晕!

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2012-10-18 20:55
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:1 
赞同15楼的观点,楼主的代码检查起来太不容易了。

相互学习,互相交流,共同提高。
2012-10-18 21:08
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:1 
天呐,我晕死了!

授人以渔,不授人以鱼。
2012-10-18 22:11
快速回复:无足够的内存完成此操作
数据加载中...
 
   



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

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