『煮面一族』的专栏

c/c++, oracle, UNIX/linux tuxedo--相关

点击标题条对数据窗口排序

********************************
*
* 目的:和windows explorer一样,点击数据窗口的标题 header ,对数据窗口进行排序 
*

* 要求: 列的header 必须伪列名加 '_t'
*
* 如:
* Column Name : 'emp_id'
* Column Header : 'emp_id_t'
*
* 每次只能对一个列排序: 
*
*************************************/
 //数据窗口的clicked 时间:
String ls_old_sort, ls_column
Char lc_sort
/* Check whether the user clicks on the column header */
IF Right(dwo.Name,2) = '_t' THEN

ls_column = LEFT(dwo.Name, LEN(String(dwo.Name)) - 2)

/* Get old sort, if any. */

ls_old_sort = dw_1.Describe("Datawindow.Table.sort")

/* Check whether previously sorted column and currently clicked
column are same or not. If both are same then check for the sort
order of previously sorted column (A - Asc, D - Des) and change it.
If both are not same then simply sort it by Ascending order. */

IF ls_column = LEFT(ls_old_sort, LEN(ls_old_sort) - 2) THEN
   lc_sort = RIGHT(ls_old_sort, 1)
      IF lc_sort = 'A' THEN
         lc_sort = 'D'
      ELSE
         lc_sort = 'A'
      END IF
   dw_1.SetSort(ls_column+" "+lc_sort)
ELSE
   dw_1.SetSort(ls_column+" A")
END IF
dw_1.Sort()
END IF

 
阅读更多
想对作者说点什么? 我来说一句

pb单击标题对数窗口排序

2012年05月28日 7KB 下载

pb数据窗口点击列名排序

2012年10月23日 590B 下载

PB 通用排序

2013年03月03日 2KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭