| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 460 人关注过本帖
标题:还有个问题
只看楼主 加入收藏
lired
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-6-30
收藏
 问题点数:0 回复次数:4 
还有个问题
随机从表1抽30条记录条记录到表2,如果从表1抽了出来把记录记在表2里,之后把表1的那条记录马上删除,记录只记在表2里,这样会不会快一点,起马不用判断有没有重复了是吗?会不会好一点呀??
CLOSE ALL
SET SAFETY OFF
SET DELETE OFF
SELECT 1
USE BIAO1
COPY TO BIAO2 STRUCTURY
SELECT 2
USE BIAO2
SELECT 1
SS=RECCOUNT()
I=1
DO WHILE I<=30
A=INT(RAND()*SS)
A=IIF(A<1,1,IIF(A>SS,SS,A))
GO A
SELECT 2
LOCATE ALL FOR 字段1=BIAO1.字段1
IF EOF()
APPEND BLANK
REPLACE 字段1 WITH BIAO1.字段1 &&,字段2 WITH BIAO1.字段2,...
I=I+1
ENDIF
SELECT 1
ENDDO
CLOSE ALL
2006-07-02 20:33
lired
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-6-30
收藏
得分:0 
还有就是在表单的表格控件里,按完抽取之后,想显进示出来就变成了白色了,怎么会这样的哩?
2006-07-02 20:38
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
问题:随机从表1抽30条记录条记录到表2,如果从表1抽了出来把记录记在表2里,之后把表1的那条记录马上删除,记录只记在表2里,这样会不会快一点,起马不用判断有没有重复了是吗?会不会好一点呀??

程序:
CLOSE ALL
USE BIAO1
SS=RECCOUNT()
I=1
DO WHILE I<=30
A=INT(RAND()*SS)
A=IIF(A<1,1,IIF(A>SS,SS,A))
GO A
IF DELETED()
LOOP
ELSE
I=I+1
DELETE
ENDIF
ENDDO
COPY TO BIAO2 FOR DELETED()
RECALL ALL
USE BIAO2
BROWSE

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-07-03 04:35
lired
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2006-6-30
收藏
得分:0 
谢谢虎哥
2006-07-03 09:43
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
以下是引用lired在2006-7-2 20:38:25的发言:
还有就是在表单的表格控件里,按完抽取之后,想显进示出来就变成了白色了,怎么会这样的哩?

在上述代码之前有类似这样的语句才行:
THISFORM.GRID1.RECORDSOURCE=NULL
THISFORM.GRID2.RECORDSOURCE=NULL

在上述代码之后有类似这样的语句才行:
THISFORM.GRID1.RECORDSOURCE="BIAO1"
THISFORM.GRID2.RECORDSOURCE="BIAO2"


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-07-03 22:36
快速回复:还有个问题
数据加载中...
 
   



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

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