Office中国论坛/Access中国论坛

标题: 排序问题 [打印本页]

作者: goto2008 时间: 2007-8-15 17:21
标题: 排序问题
我摩仿了这个网址10楼的例子

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

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

不知问题出在哪？

奇怪

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

作者: goto2008 时间: 2007-8-15 17:42
别的库照搬代码都没事

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

作者: t小宝 时间: 2007-8-15 23:20

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

作者: goto2008 时间: 2007-8-16 09:15
请大哥赐教，看下面这段代码要如何改？

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 时间: 2007-8-16 10:49
谢谢指教。。。可以了。。

作者: lirui78 时间: 2007-9-19 17:45
还有一个问题就是，如果选择一行纪录，好像也能激发排序的操作？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)