以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]加载行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83001)

--  作者:zcgmxf
--  发布时间:2016/3/29 16:05:00
--  [求助]加载行
老师,我用下面的代码加载最后一行,窗口中看到好像加载了两次。应该如何改进?谢谢!

Dim max As String = DataTables("登记总表").SQLCompute("Max(序号)")
DataTables("登记总表").LoadFilter = "序号= \'"& max &" \'"
DataTables("登记总表").Load()

--  作者:大红袍
--  发布时间:2016/3/29 16:07:00
--  

是不是你表的afterLoad事件也写了什么代码?

 

加载多少次,你在afterLoad事件加入msgbox看看不就知道了。


--  作者:zcgmxf
--  发布时间:2016/3/29 20:42:00
--  
没有啊,afterload只有加载后排序代码,没有其它代码了

Tables("登记总表").Sort = "序号"

红袍老师,我把上述代码注释掉后就没了,只加载一次了。
[此贴子已经被作者于2016/3/29 20:45:15编辑过]

--  作者:zcgmxf
--  发布时间:2016/3/29 20:47:00
--  
我想每次加载数据后通过序号 排序,代码放在哪里合适呢?
--  作者:大红袍
--  发布时间:2016/3/29 20:49:00
--  

那就肯定是只加载一次的。sort的时候可能闪了一下你觉得又加载了。


--  作者:大红袍
--  发布时间:2016/3/29 20:52:00
--  

试试

 

SystemReady = False

Tables("登记总表").StopRedraw
Dim max As String = DataTables("登记总表").SQLCompute("Max(序号)")
DataTables("登记总表").LoadFilter = "序号= \'"& max &" \'"
DataTables("登记总表").Load()
Tables("登记总表").Sort = "序号"
Tables("登记总表").ResumeRedraw

SystemReady = True


--  作者:zcgmxf
--  发布时间:2016/3/29 21:14:00
--  
谢谢!