以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]表名称  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196464)

--  作者：苏州老街 --  发布时间：2025/4/29 14:36:00 --  [求助]表名称 老师好，怎样正确把表名称从目录树中导出到列表项目表中的表名称列中，列名排除不导入。 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") For Each nd As WinForm.TreeNode In trv.AllNodes     If nd.Nodes.count = 0 Then         Dim ndr As DataRow = DataTables("列表项目").AddNew         Dim ary() As String = nd.FullPath.Split("\\")         If ary.length > 0 Then ndr("表名称") = ary(0)        \' If ary.length > 1 Then ndr("列名") = ary(1)     End If Next

--  作者：有点蓝 --  发布时间：2025/4/29 14:42:00 --   目录树是怎么样的？怎么生成的？

--  作者：苏州老街 --  发布时间：2025/4/29 15:12:00 --   表名生成目录树 Dim tr As WinForm.TreeView Dim nd As WinForm.TreeNode tr = Forms("表列名管理").Controls("TreeView1") For Each tab As Table In Tables     nd = Tr.Nodes.Add(tab.Name,tab.Name)     For Each c As Col In Tables(tab.Name).Cols         If c.Visible Then             nd.Nodes.Add(c.Name,c.Name)         End If     Next Next

--  作者：有点蓝 --  发布时间：2025/4/29 15:33:00 --   直接同样的代码获取表名放到列表项目表不更好！

--  作者：苏州老街 --  发布时间：2025/4/29 15:44:00 --   老师，我不要列名称

--  作者：有点蓝 --  发布时间：2025/4/29 16:00:00 --   那把列名称的代码去掉就行了啊

--  作者：苏州老街 --  发布时间：2025/4/29 18:01:00 --   老师，这个代码怎样修改，谢谢！ Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") For Each nd As WinForm.TreeNode In trv.AllNodes     If nd.Nodes.count = 0 Then         Dim ndr As DataRow = DataTables("列表项目").AddNew         Dim ary() As String = nd.FullPath.Split("\\")         If ary.length > 0 Then ndr("表名称") = ary(0)        \' If ary.length > 1 Then ndr("列名") = ary(1)     End If Next

--  作者：有点蓝 --  发布时间：2025/4/29 21:09:00 --   这叫吃饱了撑的 For Each tab As Table In Tables     msgbox(tab.Name) Next