如何編寫排序菜單sort

　　在要排序的塊上建立whenmouseclick trigger代碼
　　:globalmouserecord := :systemmouse_record;
　　:globalmouseitem := :systemmouse_item;
　　
　　建立排序彈出菜單
　　正排序代碼sort_asc(substr(:globalmouseiteminstr(:globalmouseitem))); 括號內的是鼠標所在的塊名
　　反排序代碼sort_desc(substr(:globalmouseiteminstr(:globalmouseitem)));　
　　不排序代碼sort_no(substr(:globalmouseiteminstr(:globalmouseitem)));　
　　
　　建立三個排序程序單元
　　PROCEDURE sort_asc(blockname varchar) IS
　　BEGIN
　　　set_block_property(blocknameorder_bysubstr(:globalmouseiteminstr(:globalmouseitem)+));
　　　go_block(blockname);
　　　execute_query;
　　
　　　go_record(:globalmouserecord);
　　　go_item(:globalmouseitem);
　　END;
　　
　　PROCEDURE sort_desc(blockname varchar) IS
　　BEGIN
　　　set_block_property(blocknameorder_bysubstr(:globalmouseiteminstr(:globalmouseitem)+)|| desc);
　　　go_block(blockname);
　　　execute_query;
　　
　　　go_record(:globalmouserecord);
　　　go_item(:globalmouseitem);
　　END;
　　
　　PROCEDURE sort_no(blockname varchar) IS
　　BEGIN
　　　set_block_property(blocknameorder_by);
　　　go_block(blockname);
　　　execute_query;
　　
　　　go_record(:globalmouserecord);
　　　go_item(:globalmouseitem);
　　END;
　　
　　在字段上指定彈出菜單的名稱
From:http://tw.wingwit.com/Article/program/Oracle/201311/17670.html