按钮改为这样，可以实现你的要求：
ClearSubtotal() and eval("Do(112) and DelFor(Grid,""部门"",""="" ,"""")And FilterFor(""部门"",""="" ,""" + Substitute(ListFor(Grid,"部门",1),"|",""") And AddRows(Grid,15-VisibleRows) and Report(grid,""报表"",1,rows,0,3) and Do(112) and DelFor(Grid,""部门"",""="" ,"""")And FilterFor(""部门"",""="" ,""") +""")And AddRows(Grid,15-VisibleRows) and Report(grid,""报表"",1,rows,0,3)") and Do(112) and DelFor(Grid,"部门","=" ,"")
加好友 
发短信
Post By：2006/10/31 10:12:00 [只看该作者]
