Office中国论坛/Access中国论坛

标题: 如何实现窗体中子窗体的数据利用鼠标单击进行排序 [打印本页]

作者: hf791119 时间: 2006-5-27 22:41
标题: 如何实现窗体中子窗体的数据利用鼠标单击进行排序
能不能实现如下功能：

鼠标单击窗体中的子窗体标签是可以对数据进行排序，第一次单击降序，第二次单击升序，循环进行！请高手指点！[em06]

作者: kennylee 时间: 2006-5-28 06:04
Private Sub 交货日期_DblClick(cancel As Integer)
Me.OrderByOn = True
If 交货日期Label.Caption = "交货日期" Or 交货日期Label.Caption = "交货日期↑" Then
Me.OrderBy = "交货日期"
Me.交货日期Label.Caption = "交货日期↓"

ElseIf Me.交货日期Label.Caption = "交货日期↓" Then
Me.OrderBy = "交货日期 DESC"
Me.交货日期Label.Caption = "交货日期↑"
End If
客号Label.Caption = "客号"
未交数量Label.Caption = "未交数量"
End Sub

作者: chang 时间: 2006-5-30 02:26
好，不错。

客号Label.Caption = "客号"
未交数量Label.Caption = "未交数量" 不知有何用

[此贴子已经被作者于2006-5-30 10:56:47编辑过]

作者: bbgbbg 时间: 2006-9-14 23:00
将"客号"，"未交数量"标签还原成未选定状态

作者: fangkinght 时间: 2008-2-20 09:26

:lol

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)