再启动的第一个窗口 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编辑过]
加好友 
发短信
Post By：2020/1/16 9:27:00 [只看该作者]
