以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  验证外部表是否已添加到系统内  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190934)

--  作者：yifan3429 --  发布时间：2024/3/14 22:55:00 --  验证外部表是否已添加到系统内 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编辑过]

--  作者：有点蓝 --  发布时间：2024/3/14 23:12:00 --   【加载到系统内】指什么？有添加到外部表管理中？

--  作者：yifan3429 --  发布时间：2024/3/15 20:33:00 --   是的 检查外部表是不是已经通过外部管理表添加到系统内

--  作者：有点蓝 --  发布时间：2024/3/16 8:47:00 --   If DataTables.Contains("表A") Then     MsgBox("表A已添加") End If