If c.Name = ctl.Name Then
if TypeOf ctl is WinForm.CheckedComboBox Then
if e.Form.Controls(ctl.Name).Text > "" then
dim s() as string = e.Form.Controls(ctl.Name).Text.Split(",")
dim f as string = "1=2"
for each s1 as string in s
f + = " Or " & c.Name & " Like '%" & s1 & "%'"
next
flt + = "And (" & f & ")"
end if
else
你的代码
end if
end if
[此贴子已经被作者于2015/8/31 16:54:17编辑过]