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
For i As Integer = 0 To V.Length - 1
f = "[公猪编号] = '" & v(i) & "'"
fs = fs & "and" & f
Next
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()
请问老师，我想把所有日期符合，[公猪编号] = v(i)都加载下来，可以上面代码，只能加载任何一个v(i)，该怎么改？
加好友 
发短信
Post By：2015/8/14 21:19:00 [只看该作者]
