求助老师：怎样进行筛选人员
我做了一个表单，怎样做到：在选择单位时按单位筛选出本单位的人员，同时在选择人员时能按所选单位的人员类别再进行筛选；或者在选择人员类别后，再选择单位，能按所选人员类别及单位进行筛选。
不知什么原因，不能所愿。
组合框combo1：interactivechange事件代码：
n=thisform.opt.value
lbhh=" "
DO CASE
    CASE n=6
     lbhh="01"
    CASE n=5
     lbhh="02"
    CASE n=4
     lbhh="03"
    CASE n=3
     lbhh="04"
    CASE n=2
     lbhh="09"
    CASE n=1
     lbhh="0"
ENDCASE
SELE RSDA  &&人员表文件
aa=
IF
  SET filt to lbh=lbhh  &&lbh为rsda表文件字段，人员类别
  COUNT TO rss FOR lbh=lbhh
else
  SET filt to bm=allt(aa).and.lbh=lbhh  &&bm为rsda表文件字段，单位
  COUNT TO rss FOR bm=allt(aa).and.lbh=lbhh
endi
GO top
thisform.refresh

单选按钮组otp的interactivechange事件：


“显示全体人员”命令click代码：
SELE RSDA
SET filt to
GO top
this.(0)
thisform.opt.value=6
thisform.refresh
望各位老师指教！！！

lbhh=" "
DO CASE
    CASE thisform.opt.value
=6
     lbhh="01"
    CASE thisform.opt.value
=5
     lbhh="02"
    CASE thisform.opt.value
=4
     lbhh="03"
    CASE thisform.opt.value
=3
     lbhh="04"
    CASE thisform.opt.value
=2
     lbhh="09"
    CASE thisform.opt.value
=1
     lbhh="0"
ENDCASE
SELE RSDA  &&人员表文件
aa=
IF
  SET filt to lbh=lbhh  &&lbh为rsda表文件字段，人员类别
  COUNT TO rss FOR lbh=lbhh
else
  SET filt to bm=allt(aa).and.lbh=lbhh  &&bm为rsda表文件字段，单位
  COUNT TO rss FOR bm=allt(aa).and.lbh=lbhh
endi
GO top
thisform.refresh


把你原来interactivechange里的代码删除,上面代码的放到thisform.opt.click()和
()里

谢谢sdi_2003帮助！
在未选择单位时（combo1空）还行，可是，在选择某一单位的情况下，其它单位、人员类别也会显示出来，同时屏幕右上角提示“筛选器已清除”。
请高手多多指教。

IF Empty()

建议在表单的 LOAD 事件中声明全局变量
PUBLIC lbhh
lbhh="0"

分别在6个 opt.option 的 Click 事件中加入以下代码
即 option1.Click 事件代码
lbhh="0"

option2.Click 事件代码
lbhh="09"

......

option6.Click 事件代码
lbhh="01"

combo1 的 InteractiveChange 事件代码
IF EMPTY(this.value)
  SET filt to lbh=lbhh
  COUNT TO rss FOR lbh=lbhh
ELSE
  SET filt to bm=allt(this.DisplayValue) and lbh=lbhh
  COUNT TO rss FOR bm=allt(this.DisplayValue) and lbh=lbhh
ENDIF
以上建议供参考