如何做这种隐藏？

goto2008

请各位看图片。。谢谢

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

Grant

隐藏只是对宽度进行调整,调整为0即可

Grant

倒看错

rjacky

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

Private Sub 隐藏已OK行_Click()
Me.子窗体.Form.Filter = "isnull(InStr([备注],'ok'))"
Me.子窗体.Form.FilterOn = True
End Sub

Grant

  提供多一个方法

kangking

版主可能没有做调试.版主的条件是不完整的,条件应该是下面这样的.
WHERE InStr([备注],'OK')=0 OR 表1.备注 Is Null

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

fannky

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

这个方法不错

Victor_Duane

原帖由 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

学习。。。。。
谢谢各位大哥指教。。