| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5010 人关注过本帖
标题:无足够的内存完成此操作
取消只看楼主 加入收藏
XQXOXQX
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-10-14
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:1 
无足够的内存完成此操作
一个程序有多个循环语句,每个循环语句有相同的多个变量。程序运行一定时间后,出现了“无足够的内存完成此操作”这该如何处理。
搜索更多相关主题的帖子: 如何 内存 
2012-10-14 13:09
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
快速回复:无足够的内存完成此操作
数据加载中...
 
   



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

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