| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1288 人关注过本帖
标题:dbf表记录号排序
只看楼主 加入收藏
一彭ok
Rank: 1
等 级:新手上路
帖 子:127
专家分:0
注 册:2018-5-10
结帖率:68.97%
收藏
已结贴  问题点数:20 回复次数:5 
dbf表记录号排序
有什么命令可以把一个表里的记录按“序号”字段从小到大重新排列,不是建新表。
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: dbf 记录 排序 从小到大 重新 
2018-05-22 19:28
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10527
专家分:42899
注 册:2014-5-20
收藏
得分:15 
INDEX 命令
2018-05-22 19:47
一彭ok
Rank: 1
等 级:新手上路
帖 子:127
专家分:0
注 册:2018-5-10
收藏
得分:0 
回复 2楼 吹水佬
说下代码嘛,而且我还要在表单中“下一条”逐条浏览,自己硬是没写出来[attach]94241[/attach][attach]94242[/attach]
2018-05-22 19:54
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10527
专家分:42899
注 册:2014-5-20
收藏
得分:5 
回复 3楼 一彭ok
** test.prg
CREATE CURSOR tt (f1 I, f2 I, f3 I)
FOR i=1 TO 10
    INSERT INTO tt VALUES (RAND()*100, i, i*2)
ENDFOR
INDEX on f1 TAG f1_tag
GO TOP
of = CREATEOBJECT("form1")
of.show(1)
 
DEFINE CLASS form1 as Form
    ADD OBJECT cmd1 as commandbutton WITH top=10,left=10,height=22,caption="下一条"
    ADD OBJECT cmd2 as commandbutton WITH top=10,left=130,height=22,caption="上一条"
    ADD OBJECT grid1 as grid WITH top=40
    PROCEDURE Activate
        this.grid1.setfocus
    ENDPROC
    PROCEDURE cmd1.click
        SKIP IN "tt"
        IF EOF("tt")
            GO BOTTOM IN "tt"
        ENDIF
        thisform.grid1.setfocus
    ENDPROC
    PROCEDURE cmd2.click
        SKIP -1 IN "tt"
        IF BOF("tt")
            GO TOP IN "tt"
        ENDIF
        thisform.grid1.setfocus
    ENDPROC
ENDDEFINE

[此贴子已经被作者于2018-5-22 20:58编辑过]

2018-05-22 20:57
一彭ok
Rank: 1
等 级:新手上路
帖 子:127
专家分:0
注 册:2018-5-10
收藏
得分:0 
回复 4楼 吹水佬
图片附件: 游客没有浏览图片的权限,请 登录注册
2018-05-23 00:38
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10527
专家分:42899
注 册:2014-5-20
收藏
得分:0 
回复 5楼 一彭ok
那段代码只是参考示例,开头注释就说明是一个 test.prg 的代码。

2018-05-23 04:22
快速回复:dbf表记录号排序
数据加载中...
 
   



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

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