If e.Form.Controls("CheckBox1").Checked = True ' 如果付款状态选择了"质量异常" If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "质量异常 = True"End If
查询功能!!