Office中国论坛/Access中国论坛

标题: 如何做这种隐藏？ [打印本页]

作者: goto2008 时间: 2008-1-10 11:06
标题: 如何做这种隐藏？
请各位看图片。。谢谢

[ 本帖最后由 goto2008 于 2008-1-15 11:14 编辑 ]

作者: Grant 时间: 2008-1-10 11:20
隐藏只是对宽度进行调整,调整为0即可

作者: Grant 时间: 2008-1-10 11:21
倒看错

作者: rjacky 时间: 2008-1-10 11:26
Private Sub 显示全部_Click()
Me.子窗体.Form.RecordSource = "select * from 表1"
Me.子窗体.Requery
End Sub

Private Sub 隐藏已OK行_Click()
Me.子窗体.Form.RecordSource = "select * from 表1 where nz(instr(1,[备注],'ok'),0)=0"
Me.子窗体.Requery
End Sub

作者: Grant 时间: 2008-1-10 11:33
Private Sub 隐藏已OK行_Click()
Me.子窗体.Form.Filter = "isnull(InStr([备注],'ok'))"
Me.子窗体.Form.FilterOn = True
End Sub

作者: Grant 时间: 2008-1-10 11:34

提供多一个方法

作者: kangking 时间: 2008-1-10 11:36
版主可能没有做调试.版主的条件是不完整的,条件应该是下面这样的.
WHERE InStr([备注],'OK')=0 OR 表1.备注 Is Null

因为按版主的条件,当备注字段为空时,除了过滤掉含有OK的记录,还过滤掉了所有的备注为空的记录.

作者: fannky 时间: 2008-1-10 11:39

原帖由 Grant 于 2008-1-10 11:33 发表
Private Sub 隐藏已OK行_Click()
Me.子窗体.Form.Filter = "isnull(InStr([备注],'ok'))"
Me.子窗体.Form.FilterOn = True
End Sub

这个方法不错

作者: Victor_Duane 时间: 2008-1-10 11:44

原帖由 Grant 于 2008-1-10 11:33 发表
Private Sub 隐藏已OK行_Click()
Me.子窗体.Form.Filter = "isnull(InStr([备注],'ok'))"
Me.子窗体.Form.FilterOn = True
End Sub

我也认同这个方法,比较灵活

[ 本帖最后由 Victor_Duane 于 2008-1-10 11:45 编辑 ]

作者: goto2008 时间: 2008-1-10 11:48
学习。。。。。

谢谢各位大哥指教。。

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