如何实现窗体中子窗体的数据利用鼠标单击进行排序

hf791119 · 发表于 2006-5-27 22:41:00

能不能实现如下功能：

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

kennylee · 发表于 2006-5-28 06:04:00

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:00

好，不错。

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

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

bbgbbg · 发表于 2006-9-14 23:00:00

将"客号"，"未交数量"标签还原成未选定状态

fangkinght · 发表于 2008-2-20 09:26:20

:lol

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 如何实现窗体中子窗体的数据利用鼠标单击进行排序

群介绍
主题无相 (随机显示版	同地区群块其他地区)