标题:如何循环关闭工作区
只看楼主
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
结帖率:97.78%
已结贴  问题点数:10 回复次数:24 
如何循环关闭工作区
for i=1 to 10
    use in i   &&电脑提示找不到别名i
endfor

for i=1 to 10
    use in &i   &&电脑提示命令错误等
endfor


搜索更多相关主题的帖子: 工作区 如何 
2014-01-06 12:58
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
得分:0 
爲什麽要這樣關閉?想關閉所有表,CLOSE TABLES ALL即可。

授人以渔,不授人以鱼。
2014-01-06 13:05
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
得分:0 
VFP的數據表工作區可不止10個,而且由於不可控的臨時表的占用,你自己的數據表也不總被在前10區中打開。正確的數據表用法,是使用數據庫表,而不是自由表,祇要關閉相應的數據庫即可關閉此庫屬下的所有數據表和視圖,不同歸類的數據表分屬不同的數據庫,用自由表是以前沒有.dbc數據庫的foxpro/dbase做法(10個工作區也是舊式的概念了)。

規範的用法,是不會直接使用工作區號的,打開數據表也是use in 0,讓vfp自由選擇空閑工作區,你不需要知道具體是哪個工作區,祇要用別名訪問即可,關閉也是用的別名。再說了,自己親手打開的數據表,哪有不知道別名的道理,針對性地按別名關閉即可。一個模塊,應該在入口處維護外部的環境即數據表打開狀態,進入模塊後自己所打開的數據表,在離開前必須自己負責關閉和清理,不要把屁股留給上層替你擦——除了數據表,還包括變量、過程、函數等等。

[ 本帖最后由 TonyDeng 于 2014-1-6 13:18 编辑 ]

授人以渔,不授人以鱼。
2014-01-06 13:11
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
得分:0 
还不是在研究我的那个表为什么关不了?又想了一个办法还是提示文件正在使用。
for qq=1 to 10000
        use in select('临时处方表')
endfor   
2014-01-06 13:17
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
得分:0 
CLOSE TABLES 已用过了。又重新给grid1重新给原来的值(表)。选择时回车键又左右移动了。新的问题又出现了。
2014-01-06 13:21
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
得分:0 
你那個問題不在關閉上,是在控件與數據表的綁定上。由於你用這種.scx設計方式,我沒辦法一攬子看你自始至終都幹了些什麽,逐個翻看所有設置是不可能的(自己寫的人才會那樣做,別人可不會有那種耐心做這等事,這也是我不推薦用這種程序設計模式的原因之一),才會設想重新給你寫一個——事實上你那程序的設計是比較糾纏難以梳理。

授人以渔,不授人以鱼。
2014-01-06 13:22
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
得分:0 
好的,只留下开处方表单、药品表、临时处方表,其它的都删掉,重点解决那个问题就行。
2014-01-06 13:27
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:422
帖 子:13681
专家分:53296
注 册:2012-10-18
得分:0 
如果可能的话  把你的完整工程打包发上来

DO IT YOURSELF !
2014-01-06 13:28
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
得分:0 
for i=1 to 10
    if used(i)
        use in (i)
    endif
endfor


2014-01-06 14:21
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
得分:0 
好的,费心了。
jxw20140102.rar (1.52 MB)


[ 本帖最后由 jxwjlx 于 2014-1-6 14:30 编辑 ]
2014-01-06 14:26



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




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

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