标题：[求助]有关动态加载

11楼

有点蓝 发表于：2023/12/5 13:31:00

access没有什么优化的余地的。并发5个用户左右还勉强可以，使用的人越多就越慢

12楼

ntqhj 发表于：2023/12/5 14:28:00

并发只有2个用户，服务器端兼一个客户端，远端一个客户端，主要是远端的速度有点慢。用下面的代码：远端客户端的速度与服务器端客户端速度相差还比较大，同步加载子表就更慢，感觉不应该这样的，毕竟目前记录不多呢

dim dr as datarow = datatables("xx表").sqlfind("第一列 like '%" & e.form.controls("TextBox1").text & "%'","[日期] desc")

if dr isnot nothing then

e.form.controls("TextBox2").text = dr("第一列")

endif

13楼

有点蓝 发表于：2023/12/5 14:31:00

使用同样的代码，那就不是程序的问题了。只能是网络的原因。

14楼

ntqhj 发表于：2023/12/5 14:56:00

与关键字模糊查找有关系吗？

15楼

有点蓝 发表于：2023/12/5 14:58:00

没有关系

16楼

ntqhj 发表于：2024/6/29 0:09:00

SQL数据库，求组合动态加载代码：窗口设置了4个CheckBox控件，目前4个CheckBox控件已可按条件单独执行后台加载，想得到分别选中1个或2个或3个或4个CheckBox控件，得到与之相对应的后台加载，这个代码应该如何做？

其中一个的代码。也请帮看下是否合理:

Dim Filter As String

If e.Sender.Name = "CheckBox1" Then

If e.Sender.Checked = True Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "进项piao是否已开 = '未开进项piao'"

If Filter > "" Then

DataTables("开piao费明细表").loadFilter = Filter

DataTables("开piao费明细表").load

Else

DataTables("开piao费明细表").loadFilter = ""

DataTables("开piao费明细表").load

End If

If e.Sender.Checked = False Then

DataTables("开piao费明细表").LoadFilter = "[_identify] is null"

DataTables("开piao费明细表").Load()

End If

[此贴子已经被作者于2024/6/29 0:14:56编辑过]

17楼

有点蓝 发表于：2024/6/29 8:22:00

参考这种方式生成查询条件：http://www.foxtable.com/webhelp/topics/1058.htm

Dim Filter As String

If e.Form.Controls("CheckBox1").Checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter &  "进项piao是否已开 = '未开进项piao'"
End If

If e.Form.Controls("CheckBox2").Checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter &  "某某列 = '某某值'"
End If

……

DataTables("开piao费明细表").loadFilter = Filter

DataTables("开piao费明细表").load

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