用代码获取选定列的名称

ajun68

请教怎样用代码获取选定列的名称?

Trynew

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

竹笛

It was wonderful.

ajun68

多谢了!