专家坐堂-[求助]TimeTick 的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]TimeTick 的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145320)

--  作者：81538475
--  发布时间：2020/1/16 9:27:00
--  [求助]TimeTick 的问题
再启动的第一个窗口 TimeTick 中加入了延迟加载表的代码,再网速正常的情况下没问题.但是一旦网速很慢的情况,就会提示报错,说表格已经加载.

If vars("计时器2")=True Then

Dim s1 As String = "XMZB|XMFP"

Dim values1 As String()
values1 = S1.Split("|")
For Each tb As Table In Tables
For I1 As Integer = 0 To Values1.Length - 1
If Values1(I1)=tb.name Then
S1=s1.Replace(Values1(I1),"")
\'MsgBox(Values1(I1))
End If
Next
Next
S1=S1.TRIM("|")
If s1<>"" Then
If DataTables.Contains(s1) = False Then
DataTables.Load(S1)
End If
End If
Functions.Execute("授权表")
Functions.Execute("辅助列去除")
Functions.Execute("移除编辑者")
Functions.Execute("主美财务权限")
Functions.Execute("非管理员限制")
end if

[此贴子已经被作者于2020/1/16 9:28:04编辑过]

--  作者：有点蓝
--  发布时间：2020/1/16 9:40:00
--

事件代码重复执行肯定就这样了

If vars("计时器2")=True Then
   vars("计时器2")=false
Dim s1 As String = "XMZB|XMFP"

Dim values1 As String()
values1 = S1.Split("|")
For Each tb As Table In Tables
For I1 As Integer = 0 To Values1.Length - 1
If Values1(I1)=tb.name Then
S1=s1.Replace(Values1(I1),"")
\'MsgBox(Values1(I1))
End If
Next
Next
S1=S1.TRIM("|")
If s1<>"" Then
If DataTables.Contains(s1) = False Then
DataTables.Load(S1)
End If
End If
Functions.Execute("授权表")
Functions.Execute("辅助列去除")
Functions.Execute("移除编辑者")
Functions.Execute("主美财务权限")
Functions.Execute("非管理员限制")
vars("计时器2")=true
end if