Dim JH As WinForm.CheckedComboBox' = e.Form.Controls("CheckedComboBox_卷号")
Dim temp As String = "1=2"
For Each s As String In jh.text.Split(",")
temp = temp & " or 卷号 like '%" & s & "%'"
Next
temp = "(" & temp & ")"
msgbox(temp)
Filter = "工序 in ('" & GX.Text.replace(",", "','") & "') And 牌号 In ('" & PH.Text.replace(",", "','") & "') And " & temp & " And 起始时间 >= #" & dt1.Value & "# And 起始时间 < #" & dt2.Value.AddDays(1) & "# And 厚度 >=" & hd1.Value & " And 厚度 <=" & hd2.Value & "And 宽度 >=" & kd1.Value & " And 宽度 <=" & kd2.Value