Access交流网
电 话：0760-88315075
热 线：0760-88315075
邮 编：528463
咨询QQ：1918333016
营销QQ：4008553990
Email：1918333016@qq.com
用代码获取选定列的名称，我们使用Me.ActiveControl.Name
如数据表窗体加下面程序可以点击列表头进行排序：
Private Sub Form_Click()
On Error Resume Next
If Me.SelWidth > 1 Then Exit Sub
If Me.OrderBy = Me.ActiveControl.Name Then
Me.OrderBy =
Me.ActiveControl.Name & " DESC"
Else
Me.OrderBy =
Me.ActiveControl.Name
End If
Me.OrderByOn =
True
End Sub
