标题：[求助]表名称

1楼

苏州老街 发表于：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

2楼

有点蓝 发表于：2025/4/29 14:42:00

目录树是怎么样的？怎么生成的？

3楼

苏州老街 发表于：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

4楼

有点蓝 发表于：2025/4/29 15:33:00

直接同样的代码获取表名放到列表项目表不更好！

5楼

苏州老街 发表于：2025/4/29 15:44:00

老师，我不要列名称

6楼

有点蓝 发表于：2025/4/29 16:00:00

那把列名称的代码去掉就行了啊

7楼

苏州老街 发表于：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

共7 条记录, 每页显示 10 条, 页签: [1]