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

转载 2007年09月14日 17:12:00

********************************
*
* 目的:和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

 

windows应用开发由浅入深(三)有关鼠标事件--设置鼠标点击测试值实现非标题栏拖动窗口

相关消息:WM_NCHITTEST MSDN描述:The WM_NCHITTEST message is sent to a window when the cursor moves, or whe...

数据窗口单击标题栏自动进行排序,并显示升降序/拖动行可以改变行顺序

这是一个PB9写的数据窗口单击标题自动排序的标准datawindow对象forward global type uo_datawindow from datawindow end type end f...
  • yyoinge
  • yyoinge
  • 2011年05月26日 17:33
  • 2242

QTableWidget 点击标题栏 设置排序

需求:统计场景中模型信息,方便查看模型 要求: 1.统计信息包括:包围球中心点、半径信息;模型的几何个数、图元个数、顶点个数、三角面个数、纹理格式、纹理个数、纹理大小等 2.对信息数...

DBGridEh,DBGrid点击标题排序

最近在找关于解决DBGridEh,DBGrid点击标题排序的最简单方法的同时,发现说法很多,但是没有找到一个比较详细的。 所以我在这里做一个小的总结,有不足之处请大家多多指教。 首先说下关于DBG...
  • haynes
  • haynes
  • 2013年06月11日 14:01
  • 478

Asp.Net GridView點擊標題排序方法

Asp.Net GridView點擊標題排序方法 今天需要用到在GridView中點擊標題排序,琢磨了半天,終於成功了。在看代碼之前需要說明一點:       GridView本身有一个Sor...
  • qsbqing
  • qsbqing
  • 2012年03月05日 17:40
  • 584

JS点击标题自动排序

站长特效 js实现点击分类排序效果 站长特效网  * {   padding:0;   margin:0;  }  body {   font-family:verdana;   f...

[Win32]只允许最大化最小化窗口,禁止双击标题栏、拖动窗体、点击复原按钮来改变窗口大小

//^WS_THICKFRAME 禁止拖动边框 HWND hWnd = CreateWindow(g_szAppWindowClass, g_szAppTitle, WS_OVERLAPPED...

UI基础-UITableViewHeaderFooterView组标题数据不加载,好友列表只能点击不能打开

一、案例描述:案例类似于QQ好友列表的展开和关闭,每次点击组标题后,展开列表并刷新被点击的一组 二、BUG描述:点击某组标题后,列表无法展开且列表上控件不显示,但该组数据已刷新,断点调试数据已传入...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:点击标题条对数据窗口排序
举报原因:
原因补充:

(最多只允许输入30个字)