想在打开软件的时候预加载一些表。但是又的时候他会疯狂提示 表格已加载。。如何避免这种情况呢。
If _UserGroup= "人事" Then
Dim s1 As String = "人员信息表|外派服务协议登记表|综合奖惩记录表|组别结构表|PM绩效"
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