窗体设计视图里面的“格式”可选择窗体是否可移动。
建个按钮，加入以下代码：Me.Filter = "me.部门='XXX'"Me.filteteron = True就可以了可以再建个按钮，用来显示全部的代码为：me.filter=""me.filteteron=false
