说明条件不成立。
msgbox看一下筛选条件
msgbox("pici like '%" & bj.Text & "%' " & _ "And danjuzhuangtai = '待包装' and jieshoujigou = '" & _UserGroup & "' " & _ " and changjia = '" & SH.Text & "'")