主题：CheckedComboBox 多选项的加载

Dim ks As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim js As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

Dim gzh As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")

Dim ksv As Date = ks.Value

Dim jsv As Date = js.Value

Dim gzh1 As String = gzh.Text

Dim V() As String

V = gzh1.split(",")

Dim f As String 

Dim fs As String

Dim filter As String = "[日期] >= '" & ksv & "' and [日期]< ='" & jsv & "' and [sys_user] = '" & user.Name & "'"  & fs

DataTables("采精").LoadOrder = "日期"

DataTables("采精").LoadTop = "14"

DataTables("采精").LoadPage = "0"

DataTables("采精").LoadFilter = filter

DataTables("采精").Load()