请各位大侠帮助小弟啊？我给你100分

anshan 2002-03-07 11:45:18

现在我做个系统里面有操作日志窗口，有三个字段，操作人，操作内容，操作时间。
我现在想当点击其中任何字段时，记录就自动排序，在窗口的doubleclicked事件如何编写代码啊，（A 升序，D降序）请各位高手把代码写给我

...全文

8 点赞收藏 8

写回复

8 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

mjh7781 2002-03-08

就是这样做，给人捷足先登了以后还是早些好!!!

回复赞

zc_ncepu 2002-03-08

回复赞

hwma 2002-03-08

回复赞

2000pinbo 2002-03-08

同意楼上说的

回复赞

rock_csdn 2002-03-07

楼上兄弟们都对！
记得把你的题头改成对应列名+‘_t' 的形式才会成功喔！

回复赞

ideage 2002-03-07

1.定义实例变量：string is_sort
2.定义函数of_sort，无参数，在数据窗口的clicked中调用。

string ls_col, ls_sort
integer li_pos

SetPointer(HourGlass!)

/*******************************************************/
/* 取得光标所在位置下的对象名。 */
/*******************************************************/
ls_col = this.GetObjectAtPointer()

/*******************************************************/
/* 取得Tab位置 */
/*******************************************************/
li_pos = Pos(ls_col, "~t")

/*******************************************************/
/* 检查末尾两字符 */
/*******************************************************/
ls_col = Left(ls_col, li_pos - 1)

/*******************************************************/
/* 如果不存在列头，系统返回。 */
/*******************************************************/
if NOT Lower(Right(ls_col, 2)) = "_t" then Return

ls_col = Left(ls_col, Len(ls_col) - 2)
ls_sort = ls_col + " A"

if ls_sort = is_sort then
ls_sort = ls_col + " D"
else
ls_sort = ls_col + " A"
end if

is_sort = ls_sort

this.SetSort(is_sort)
this.Sort()

回复赞

llitcwl 2002-03-07

doubleclicked事件中也可以

回复赞

llitcwl 2002-03-07

////////////////////////////////////////
//函数作用 : 点击字段标题进行排序
//返回值 : ab_rtn(TRUE 点中标题；FALSE 点中记录)
//函数形参 : 数据窗口对象类型af_dwotype dwo
//函数形参 : 数据窗口对象名称af_dwoname string
//函数形参 : 数据窗口控制名称af_dwname string
//在CLICKED事件中调用
////////////////////////////////////////

string ls_columntext
string ls_column,ls_sort,ls_retrieveasneed
string ls_oldtext
string ls_oldsortcol,ls_temp
IF af_dwotype = "text" THEN
IF af_dwname.RowCount()<=0 THEN RETURN TRUE
ls_oldsortcol=af_dwname.Object.DataWindow.Table.Sort
ls_oldsortcol=left(ls_oldsortcol,len(ls_oldsortcol) - 2)
ls_column = Left(af_dwoname, Len(af_dwoname) - 2)
ls_oldtext=af_dwname.Describe(af_dwoname+".text")
ls_columntext = right(af_dwname.Describe(af_dwoname+".text"),2)
IF ls_columntext <>'↑' and ls_columntext <>'↓' THEN
af_dwname.Modify(af_dwoname+".text = '"+ls_oldtext+"↑'")
if ls_oldsortcol<>af_dwoname then //修改原排序列标题复原
ls_temp=af_dwname.Describe(ls_oldsortcol+"_t.text")
af_dwname.Modify(ls_oldsortcol+"_t.text = '"+mid(ls_temp,1,len(ls_temp) - 2)+"'")
end if

ls_sort = ls_column + " A"

ELSEIF ls_columntext = '↑' THEN
af_dwname.Modify(af_dwoname+".text = '"+mid(ls_oldtext,1,len(ls_oldtext) - 2)+"↓'")
ls_sort = ls_column + " D"

ELSEIF ls_columntext ='↓' THEN
af_dwname.Modify(af_dwoname+".text = '"+mid(ls_oldtext,1,len(ls_oldtext) - 2)+"'")
ls_sort = ""
END IF
ls_retrieveasneed = Upper(af_dwname.object.DataWindow.Retrieve.AsNeeded)
IF ls_retrieveasneed = "YES" THEN
af_dwname.object.DataWindow.Retrieve.AsNeeded = "NO"
af_dwname.SetSort(ls_sort)
af_dwname.Sort()
af_dwname.object.DataWindow.Retrieve.AsNeeded = "YES"
ELSE
af_dwname.SetSort(ls_sort)
af_dwname.Sort()
END IF
RETURN TRUE
ELSE
RETURN FALSE
END IF

回复赞