| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3485 人关注过本帖
标题:请教二表随机整行替换代码中的一个错误提示
只看楼主 加入收藏
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
回复 40楼 fdxxhjc
"列"+TRANSFORM(i) 是字符串
字符串是什么类型:
?VARTYPE("列"+TRANSFORM(i))
2022-02-15 20:15
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 41楼 吹水佬
哦,我再翻下书,对不起
2022-02-15 20:33
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:20 
不好意思,原来是有真实表格,开头没留意,刚看到。
实测了一下
图片附件: 游客没有浏览图片的权限,请 登录注册

程序代码:
SELECT RECNO() bh, * FROM a INTO TABLE 交换结果记录表
SELECT RECNO() bh, * FROM b INTO CURSOR tb
SELECT 交换结果记录表
INDEX on bh TAG ta_bh
RAND(-1)
SELECT tb
INDEX ON RAND() TAG tb_r
SET RELATION TO bh INTO "交换结果记录表"
ran = INT((RECCOUNT("tb")-1)*RAND()+1)
? " 取 "+TRANSFORM(ran)+" 条记录"
SCAN NEXT ran
    ? bh
    SCATTER MEMVAR
    SELECT 交换结果记录表
    GATHER MEMVAR
ENDSCAN
SELECT 交换结果记录表
BROWSE
CLOSE TABLES ALL
收到的鲜花
  • fdxxhjc2022-02-15 21:19 送鲜花  1朵  
2022-02-15 21:02
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
收藏
得分:0 
回复 43楼 吹水佬
先生太客气了,谢谢先生,已成功,我再对照书本细学下,诚挚的感谢
2022-02-15 21:19
快速回复:请教二表随机整行替换代码中的一个错误提示
数据加载中...
 
   



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

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