标题：连续下载后台数据问题

1楼

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

DataTables("项目财务表").LoadFilter = filter

DataTables("项目财务表").Load()

如何可以连续使用上面的代码的【下载工具】，之前下载的行还不被清除掉？

老师代码如何写呢？

辛苦了

2楼

有点蓝 发表于：2023/12/5 16:46:00

要保留上次加载的行？

DataTables("项目财务表").LoadFilter = filter

DataTables("项目财务表").Load()

改为

DataTables("项目财务表").RemoveFor(filter)

DataTables("项目财务表").AppendLoad(filter)

3楼

jiawei507 发表于：2023/12/5 17:07:00

解决了，谢谢版主了！辛苦了！

共3 条记录, 每页显示 10 条, 页签: [1]