排序问题

goto2008

我摩仿了这个网址10楼的例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=51098&extra=page%3D1


为什么我单击画圆圈的这个子窗体标题。。。。。却排序不了？？？？？？

不知问题出在哪？


奇怪

[ 本帖最后由 goto2008 于 2007-8-19 16:02 编辑 ]

goto2008

别的库照搬代码都没事

但不知这个库是因为什么原因才会导致这样照搬了还不能排序。。。
哪位大哥能看看这库毛病出在哪？

t小宝

问题出在该子窗体还有几个文本框没有和标签控件绑定。

goto2008

请大哥赐教，看下面这段代码要如何改？



Option Compare Database
Dim dj As Boolean

Private Sub Form_Click()
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 Sub

goto2008

谢谢指教。。。可以了。。

lirui78

还有一个问题就是，如果选择一行纪录，好像也能激发排序的操作？