我这个子窗体怎么冒出这么多上下箭号了？

goto2008

有两个问题。
1、“分类”字段冒出这么多个箭号出来
2、当子窗体没有记录时，会弹一个提示错误的对话框，，如何避免了？

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 于 2008-4-13 15:34 编辑 ]

tmtony

Label7 的标题 将 箭号 删除之即可
在代码中判断子窗体有否记录

fswxs

因为你的分类不是文本框，所以下面的代码没起作用
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
改为文本框就行了

咱家是猫

........

goto2008

如果我的子窗体的“分类”字段必须是组合框，怎么办？？

fswxs

If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then

goto2008

谢谢fswxs大哥。。。可以了

goto2008

我想再继续请教个问题...

层名称,    分类,   层工价

我只想实现,,
单击“层名称”..和“层工价”-----------------会进行排序
如果单击“分类”---------------------------------不会进行排序，即没任何反映

gdfsslec

在前面加一句
If Screen.ActiveControl.Controls(0).Caption = "分类" Then Exit Sub