主题：列表项目更精确划分

Enter事件

Dim str As String = e.form.controls("CHECKEDCOMBOBOX1").text
If str > "" Then
    e.Sender.ComboList = DataTables("安排").GetComboListString("制单号", "排产完毕 = false and 组装品 in ('" & str & "')")
Else
    e.Sender.ComboList = DataTables("安排").GetComboListString("制单号", "排产完毕 = false")
End If