Dim nms() As String = {"TextBox1", "TextBox2", "ComboBox1", "ComboBox2", "DateTimePicker1", "DateTimePicker2"}
Dim spa() As String = {"'", "'", "'", "'", "'"}
Dim bjf() As String = {"=", "=", "=", ">=", "<="}
Dim fds() As String = {"项目编号", "项目归属", "登记分类", "登记分类","开始日期", "截止日期"}
Dim filter As String
For i As Integer = 0 To nms.Length - 1
If e.Form.Controls(nms(i)).value IsNot Nothing Then
If filter > "" Then
filter = filter & "and "
End If
filter = filter & fds(i) & bjf(i) & spa(i) & e.Form.Controls(nms(i)).value & spa(i)
End If
Next
DataTables("项目财务表").LoadFilter = filter
DataTables("项目财务表").Load()
如何可以连续使用上面的代码的【下载工具】，之前下载的行还不被清除掉？
老师 代码如何写呢？
辛苦了
加好友 
发短信
Post By：2023/12/5 16:41:00 [显示全部帖子]
