　　1。在要排序的块上建立：when-mouse-click trigger,代码：
　　:global.mouserecord := :system.mouse_record;
　　:global.mouseitem := :system.mouse_item;
　　
　　
　　2。建立排序弹出菜单
　　正排序，代码：sort_asc(substr(:global.mouseitem,1,instr(:global.mouseitem,'.')-1)); --括号内的是鼠标所在的块名
　　反排序，代码：sort_desc(substr(:global.mouseitem,1,instr(:global.mouseitem,'.')-1));
　　不排序，代码：sort_no(substr(:global.mouseitem,1,instr(:global.mouseitem,'.')-1));
　　
　　
　　3。建立三个排序程序单元：
　　PROCEDURE sort_asc(blockname varchar) IS
　　BEGIN
　　 set_block_property(blockname,order_by,substr(:global.mouseitem,instr(:global.mouseitem,'.')+1,999));
　　 go_block(blockname);
　　 execute_query;
　　
　　 go_record(:global.mouserecord);
　　 go_item(:global.mouseitem);
　　END;
　　
　　PROCEDURE sort_desc(blockname varchar) IS
　　BEGIN
　　 set_block_property(blockname,order_by,substr(:global.mouseitem,instr(:global.mouseitem,'.')+1,999) ' desc');
　　 go_block(blockname);
　　 execute_query;
　　
　　 go_record(:global.mouserecord);
　　 go_item(:global.mouseitem);
　　END;
　　
　　PROCEDURE sort_no(blockname varchar) IS
　　BEGIN
　　 set_block_property(blockname,order_by,'');
　　 go_block(blockname);
　　 execute_query;
　　
　　 go_record(:global.mouserecord);
　　 go_item(:global.mouseitem);
　　END;
　　
　　
　　4。在字段上指定弹出菜单的名称
　　
　　---- 本文为原创，by armok.

（出处：清风网络学院）

上一篇:[bug]record_group 记录组的缺陷

下一篇:一个小技巧：工资超过5000元的员工，用红色指示

[范例]如何编写排序菜单sort_popmenu 相关文章：

·教你学习如何破解XP登陆密码

·教你如何复制别人的QQ空间

·“黑客”教你如何远程控制计算机

·将系统装到U盘中如何自制XP@USB启动盘

·如何显示输入法图标(输入法图标消失)

·如何建立一个网站？规划、设计、目的、原则、宣传

[范例]如何编写排序菜单sort_popmenu 相关软件：

·零起点教你如何破解软件和制作注册机 and 视频+程序

·如何安装XP系统

·国际财务报告准则（财务报表范例）（英文版）

·张锦贵-如何把话说得更好1

·35套FLASH菜单源文件

·菜鸟如何大量获得IPC肉鸡

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.viphot.com

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.viphot.com All Rights Reserved.	鄂ICP备05000083号Powered by:viphot