主题：[原创]疯狂的VFPER之点击表头排序
akun868
[专家分：150] 发布于 2008-11-23 17:06:00
一晃真正用VFP写程序也已6年多了，大大小小也做了几十个系统，曾经有多少个日夜坐在电脑前敲打着空格、回车...，突然发现我在论坛上回贴的多，发贴的少，决定痛改前非:)...闲话少说，言归正传，我会陆续将我的部份VFP代码给大家分享(并不一定都是我的原创，有些是在其他VFPER的代码上改的)。
疯狂的VFPER之点击表头排序
上传不了文件，请到梅子论坛下载：
http://www.meizibbs.3322.org/bbs/dispbbs.asp?boardid=2&id=81077&star=1&page=1
回复列表 （共5个回复）
沙发
xm7050432 [专家分：180] 发布于 2008-12-05 09:12:00
akun868，梅子论坛要花金币，能不能麻烦你想办法传上来。
或者有其他高手帮忙传下，我现在需要这个功能。
板凳
foxdb [专家分：1830] 发布于 2008-12-05 15:46:00
[url=http://www.foxsky.net/bbs/attachment.php?aid=369&k=ee11af949d71f43041746f1eaf1143c3&t=1228462676]点击表头排序.RAR 下载[/url]
3 楼
xm7050432 [专家分：180] 发布于 2008-12-05 15:58:00
谢谢哈，可惜不能给你分。[em16][em16]
4 楼
moz [专家分：37620] 发布于 2008-12-05 17:14:00
我会在每个表头的.Click里写下以下代码
是第几个表头就写 by 几
D_G1=!D_G1 &&顺序倒序切换
WITH this.Parent.Parent
.recordSource=""
IF D_G1
SELECT * FROM T_D1 ORDER BY 1 ASC INTO CURSOR T_D1 READWRITE
ELSE
SELECT * FROM T_D1 ORDER BY 1 DESC INTO CURSOR T_D1 READWRITE
ENDIF
.recordSource="T_D1"
.refresh
ENDWITH
5 楼
xm7050432 [专家分：180] 发布于 2008-12-06 08:48:00
[quote]我会在每个表头的.Click里写下以下代码
是第几个表头就写 by 几
D_G1=!D_G1 &&顺序倒序切换
WITH this.Parent.Parent
.recordSource=""
IF D_G1
SELECT * FROM T_D1 ORDER BY 1 ASC INTO CURSOR T_D1 READWRITE
ELSE
SELECT * FROM T_D1 ORDER BY 1 DESC INTO CURSOR T_D1 READWRITE
ENDIF
.recordSource="T_D1"
.refresh
ENDWITH[/quote]
嗯上面是用类，你的我试试看。谢谢分享[em2][em2][em2]
我来回复
您所在位置：