以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  连续下载后台数据问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189494)
--  作者：jiawei507
--  发布时间：2023/12/5 16:41:00
--  连续下载后台数据问题
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()

如何可以连续使用上面的代码的【下载工具】，之前下载的行还不被清除掉？ 
老师 代码如何写呢？
辛苦了
--  作者：有点蓝
--  发布时间：2023/12/5 16:46:00
--  
要保留上次加载的行？

DataTables("项目财务表").LoadFilter = filter
DataTables("项目财务表").Load()
改为
DataTables("项目财务表").RemoveFor(filter)
DataTables("项目财务表").AppendLoad(filter)
--  作者：jiawei507
--  发布时间：2023/12/5 17:07:00
--  
解决了，谢谢版主了！辛苦了！