If DataTables.Contains("z1") = False Then
Functions.Execute("datatablesload","z1")
End If
If DataTables.Contains("z2") = False Then
Functions.Execute("datatablesload","z2")
End If
If DataTables.Contains("z3") = False Then
Functions.Execute("datatablesload","z3")
End If
If DataTables.Contains("z4") = False Then
Functions.Execute("datatablesload","z4")
End If
If DataTables.Contains("z5") = False Then
Functions.Execute("datatablesload","z5")
End If
If DataTables.Contains("dttzfl") = False Then
Functions.Execute("datatablesload","dttzfl")
End If
If DataTables.Contains("dttzflmxb") = False Then
Functions.Execute("datatablesload","dttzflmxb")
End If
Dim kz As String
Dim bjh As new List(of String)
bjh = DataTables("jcsjdatatable").GetValues("dstatablename","dstatablename is not null","_sortkey")
For Each bj As String In bjh
If bj <> "z1" And bj <> "z2" And bj <> "z3" And bj <> "z4" And bj <> "z5" And bj <> "dttzfl" And bj <> "dttzflmxb" Then
If DataTables.Contains(bj) = False Then
Functions.Execute("datatablesload",bj)
End If
End If
kz = bj
Next
If kz = bjh(bjh.Count - 1) Then
MyTimers("loaddatatable").Enabled = False
End If
加好友 
发短信
Post By：2015/12/23 11:45:00 [只看该作者]
