If Tables("行政主管日常工作1").filter > "" Then Tables("行政主管日常工作1").filter = Tables("行政主管日常工作1").filter & " And 做的好的人 = '" & .Value & "'" else
Tables("行政主管日常工作1").filter = "做的好的人 = '" & .Value & "'"
end if
加好友 
发短信
Post By：2015/8/4 17:31:00 [显示全部帖子]
