鼠标右键菜单怎么排序?
发布网友
发布时间：2022-04-22 20:48
共1个回答
热心网友
时间：2023-07-14 05:23
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) ISBEGINset_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) ISBEGINset_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) ISBEGINset_block_property(blockname,order_by,'');go_block(blockname);execute_query;go_record(:global.mouserecord);4。在字段上指定弹出菜单的名称
