Office中国论坛/Access中国论坛

标题: 急!为什么我的rs.filter筛选不了,请帮帮忙? [打印本页]

作者: gjm996 时间: 2005-3-9 00:51
标题: 急!为什么我的rs.filter筛选不了,请帮帮忙?
[attach]9278[/attach]

在"宿舍资料"窗体那里,按钮"减少床数",就要用到一个 "rs.Filter = "(rs![宿舍编号] = '" & Forms![宿舍资料]![宿舍编号] & "')" 把rs筛选出来后,用rs做其它的处理就不是想像中那样!.

它会把整个rs表里的内容进行处理,而不是单独处理筛选出来的那部份,请问这是什么回事?

高手请指点一下小弟,这是小弟第一个自已开发的程式!多多支持吧!

作者: gjm996 时间: 2005-3-9 20:08
rs.Filter = "rs![宿舍编号] = '" & Forms![宿舍资料]![宿舍编号] & "'"Do While d < M

rs.MoveFirst

d = d + 1

Do While rs.EOF = False

   If d = rs![床号] Then



         If rs![工号] > 0 Then

            MsgBox d & "号床位有员工住宿不能删除床位,请先把员工调离再删除"

            Me.床位数 = M

            Exit Sub

            End If

   End If

   rs.MoveNext

Loop

Loop

作者: gjm996 时间: 2005-3-10 17:09
顶!

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