Dim lst As List(Of String)
Dim Arys() As String
lst = Connections("2022").GetTableNames
Arys = Lst.ToArray() '将集合转换为数组
For Each nm As String In lst
Dim dr As DataRow
dr = DataTables("系统_菜单").sqlFind("主表 = '" & nm & " ' ") '找出对应的表
If dr Is Nothing Then '如果没找到的话
dr = DataTables("系统_菜单").AddNew
dr("主表") = nm
dr("主菜单") = "0.未分配"
' dr("主表").Position = nm '定位到找到的行。
With Tables("系统_菜单")
.Position = .Rows.Count - 1 '定位到显示最后一行。
End With
statusBar.Message1 = nm & "正在创建数据,请稍后..."
Application.DoEvents()
End If
Next
上面的代码把所有的表名加载进来，希望再增加一列（加载）判断表是否已加载到系统内
For Each nm As String In lst
Dim dr As DataRow
dr = DataTables("系统_菜单").sqlFind("主表 = '" & nm & " ' ") '找出对应的表
检验是否已加载进来 加栽了就勾选上
Next
[此贴子已经被作者于2024/3/14 22:57:39编辑过]
加好友 
发短信
Post By：2024/3/14 22:55:00 [只看该作者]
