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.
