Foxtable(狐表)用户栏目专家坐堂 → [求助]有关动态加载


  共有1744人关注过本帖树形打印复制链接

主题:[求助]有关动态加载

帅哥哟,离线,有人找我吗?
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107846 积分:548581 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/5 13:31:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:441 积分:2697 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107846 积分:548581 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/5 14:31:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:441 积分:2697 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2023/12/5 14:56:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107846 积分:548581 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/5 14:58:00 [只看该作者]

没有关系

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:441 积分:2697 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By: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
    End If 
    If e.Sender.Checked = False Then
        DataTables("开piao费明细表").LoadFilter = "[_identify] is null"
        DataTables("开piao费明细表").Load()
    End If 
End If
[此贴子已经被作者于2024/6/29 0:14:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107846 积分:548581 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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 上一页 1 2