Foxtable(狐表)用户栏目专家坐堂 → 窗口控件赋值,会拖慢打开窗口速度


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

主题:窗口控件赋值,会拖慢打开窗口速度

帅哥哟,离线,有人找我吗?
王小风
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:50 积分:536 威望:0 精华:0 注册:2021/9/2 16:35:00
窗口控件赋值,会拖慢打开窗口速度  发帖心情 Post By:2025/3/20 19:28:00 [只看该作者]

e.Form.Controls("rb-qb").Checked = True
e.Form.Controls("dp-drq").Value = Date.Today
Dim a As Date = e.Form.Controls("dp-drq").Value
Dim a1 As Date = a.AddDays( - 60)
e.Form.Controls("dp-crq").Value = a1
Dim crq As WinForm.DateTimePicker = e.Form.Controls("dp-crq")
Dim drq As WinForm.DateTimePicker = e.Form.Controls("dp-drq")

Tables("备件出入库").Filter = "[出入库日期] >= #" & crq.Value & "#" & "and [出入库日期] <= #" & drq.Value & "#"
e.Form.Controls("b-rqsx").Text = "筛选中"
老师们在AfterLoad事件中写这个代码给日期赋值会使窗口打开非常慢,有什么好方法吗?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112892 积分:574835 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/3/20 19:59:00 [只看该作者]

给日期赋值不会导致慢的,可能是筛选引起的,或者是触发了控件的什么事件

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


加好友 发短信
等级:幼狐 帖子:50 积分:536 威望:0 精华:0 注册:2021/9/2 16:35:00
  发帖心情 Post By:2025/3/21 13:31:00 [只看该作者]

找到问题原因了,是赋值时会触发控件的筛选,还有个问题:怎么在打开窗口(初始化)时控件赋值 不触发控件筛选! 

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7261 积分:40836 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2025/3/21 13:46:00 [只看该作者]

写代码没必要那么啰嗦:
Dim a As Date = Date.Today
Dim a1 As Date = a.AddDays( - 60)
e.Form.Controls("b-rqsx").Text = "筛选中"
Tables("备件出入库").Filter = "[出入库日期] >= #" & a1 & "#" & "and [出入库日期] <= #" & a & "#"
e.Form.Controls("rb-qb").Checked = True
e.Form.Controls("dp-drq").Value = a
e.Form.Controls("dp-crq").Value = a1

您就不能先筛选后给控件赋值试试。
[此贴子已经被作者于2025/3/21 13:47:34编辑过]

 回到顶部