事件代码重复执行肯定就这样了
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
加好友 
发短信
Post By：2020/1/16 9:40:00 [显示全部帖子]
