数据窗体中如何点字段名进行升序或降序

[笑虾]

如何实现这种很常见的排序效果.
就是比如默认按为升序,点一下"字段名"就变成降序.再点又变成升序


不知道怎么操作才好.最好给点代码.

(要是可以直接对窗体的源进行SQL一次就好了)

[ewang11]

Dim dj As Boolean

Function px()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
If Right(ctrl.Controls(0).Caption, 1) = "↓" Or Right(ctrl.Controls(0).Caption, 1) = "↑" Then ctrl.Controls(0).Caption = Left(ctrl.Controls(0).Caption, Len(ctrl.Controls(0).Caption) - 1)
End If
Next
If dj = True Then
DoCmd.DoMenuItem acFormBar, 5, 1, 1, acMenuVer70
Screen.ActiveControl.Controls(0).Caption = Screen.ActiveControl.Controls(0).Caption & "↓"
dj = False
Else
DoCmd.DoMenuItem acFormBar, 5, 1, 0, acMenuVer70
Screen.ActiveControl.Controls(0).Caption = Screen.ActiveControl.Controls(0).Caption & "↑"
dj = True
End If
End Function

Private Sub Form_Click()
px
End Sub

[笑虾]

OK已经搞定
谢谢

因为我的窗体中还有组合框所以就改成了
If (TypeOf ctrl Is TextBox) Or (TypeOf ctrl Is ComboBox) Then

用到这个功能的窗口比较多:
Function px(myform as form)
...
For Each ctrl In myform.Controls
...

最后在窗体的双击事件中调用.

不过对于这段代码还不消化.

这里的ctrl 是代表一个字段?(一个Label和一个TextBox)
ctrl.Controls(0)指字段名的那个标签?

还有这个:
DoCmd.DoMenuItem acFormBar, 5, 1, 1, acMenuVer70
能给点资料吗?后面几个参数你都是给的值,它有哪此常量可用?

谢谢了

[ewang11]

还有这个:
DoCmd.DoMenuItem acFormBar, 5, 1, 1, acMenuVer70
能给点资料吗?后面几个参数你都是给的值,它有哪此常量可用?




http://topic.csdn.net/u/20081030/11/68cd01dc-d7fc-47c1-93a2-7b5b979ad8c9.html

[笑虾]

很谢谢 ewang11朋友,又是你回答.哈哈
只是你每次都给的代码.很感谢.
能再解说一下处理的流程吗?

不然我还有点不知其所以然.哈哈

[ewang11]

示例:
http://access911.net/csdn/FileDescription.asp?mdb=2008-10-30&id=66

[笑虾]

谢谢,我去学习学习.哈哈