列表排序的通用函数（求更简便方法）

hjs　发表于：2015-07-23 12:39:09 　

自建函数：望能修改！

px（me!la1,"序号",me!lb）注释：px（需要排序的标签，排序后的名称，需要刷新的字段列表）

如下面：px（me!lawshs,"未审核数",me!lb）

Public Function px(ctl As Control, str As String, ctl1 As Control)
Dim strcode As String, Vpxbj As String, str1 As String, jsx As String

strcode = ctl.Caption
Vpxbj = Right(strcode, 1)

If Vpxbj <> "↓" Then
str1 = "↓"
jsx = " desc"
ElseIf Vpxbj <> "↑" Then
str1 = "↑"
jsx = ""
End If

px = str & str1
ctl1.RowSource = JS_X & jsx

End Function

Top

煮江品茶发表于：2015-07-23 13:40:08

function FormOrder(byref frm as from,byref ctrl as control)
'功能：数据表子窗体排序
'参数：frm -- 子窗体对象,ctrl -- 排序的控件
dim str as string
dim fieldname as string
str=ctrl.controls(0).caption
fieldname=ctrl.name
if instr(str,"↑")=0 then
frm.OrderBy=fieldname
else
frm.OrderBy=fieldname & " DESC"
end if
me.OrderByOn=True
end function

Top

hjs 发表于：2015-07-25 15:35:29

老师，我的是点击标签，排序！子窗体实在觉得没得列表好看！

Top

hjs 发表于：2015-08-29 09:49:51

难道没有更好方法吗？

Top

hjs 发表于：2015-08-31 21:42:09

难道没有更好方法吗？

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

[5分]列表排序的通用函数（求更简便方法）