Office中国论坛/Access中国论坛

标题: 求助 查询问题，无限感谢 [打印本页]

---

作者: 文棣    时间: 2009-4-1 17:34
标题: 求助 查询问题，无限感谢
求助 查询问题，无限感谢

---

作者: Henry D. Sy    时间: 2009-4-1 20:27

1. Private Sub 文本0_AfterUpdate()
   
2.     Dim ctl As Control
   
3.     If IsNull(Me.文本0) Then Exit Sub
   
4.     For Each ctl In Me.xx_子窗体.Form.Controls
   
5.         If TypeOf ctl Is TextBox Then
   
6.             If Right(ctl.Name, 1) = "班" Then
   
7.                 If ctl.Name = Me.文本0 Then
   
8.                     Me.xx_子窗体.Controls(ctl.Name).ColumnHidden = False
   
9.                 Else
   
10.                     Me.xx_子窗体.Controls(ctl.Name).ColumnHidden = True
    
11.                 End If
    
12.             End If
    
13.         End If
    
14.     Next
    
15. End Sub

复制代码

---

作者: Henry D. Sy    时间: 2009-4-1 20:37
修正一下，清空文本0时复原

1. Private Sub 文本0_AfterUpdate()
   
2.     Dim ctl As Control
   
3.     For Each ctl In Me.xx_子窗体.Form.Controls
   
4.         If TypeOf ctl Is TextBox Then
   
5.             If Right(ctl.Name, 1) = "班" Then
   
6.                 If IsNull(Me.文本0) Then
   
7.                     Me.xx_子窗体.Controls(ctl.Name).ColumnHidden = False
   
8.                 Else
   
9.                     If ctl.Name = Me.文本0 Then
   
10.                         Me.xx_子窗体.Controls(ctl.Name).ColumnHidden = False
    
11.                     Else
    
12.                         Me.xx_子窗体.Controls(ctl.Name).ColumnHidden = True
    
13.                     End If
    
14.                 End If
    
15.             End If
    
16.         End If
    
17.     Next
    
18. End Sub

复制代码

---

作者: 文棣    时间: 2009-4-2 16:19
无限感谢版主 谢谢

---

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

Powered by Discuz! X3.3