SQL - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → SQL

共有2494人关注过本帖树形打印复制链接主题：SQL

sara

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1871 积分：12372 威望：0 精华：0 注册：2014/11/12 16:09:00

Post By：2014/12/10 10:11:00 [只看该作者]

打印结果是对的

可以加QQ么，这样太麻烦了

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/10 10:12:00 [只看该作者]

代码是对的，你就只需要做一个例子，输入一些数据上传上来。

你的Sqlserver数据源，别人是连不上的。

sara

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1871 积分：12372 威望：0 精华：0 注册：2014/11/12 16:09:00

Post By：2014/12/10 10:30:00 [只看该作者]

实现这个意思就行了，你嫌不行就自己建被

下载信息 [文件大小：下载次数： ]
点击浏览该文件:hantek流程管理系统.rar

有点甜

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/10 10:43:00 [只看该作者]

'生成库存商品树
Dim tr As WinForm.TreeView
Dim nd1 As WinForm.TreeNode
Dim nd3 As WinForm.TreeNode
tr = e.Form.Controls("TreeViewStore")
Dim nd2 As WinForm.TreeNode = tr.Nodes.Add("a2","按类型")
Dim cmd As new SQLCommand
cmd.CommandText = "Select * From {CSearchTypeNei} where cName is not null"
Dim dt As DataTable = cmd.ExecuteReader()
Dim name As String
For Each dr1 As DataRow In dt.Datarows
    nd3 = nd2.nodes.add("01",dr1("CSearchName"))
    name = dr1("CName")
    cmd.CommandText = "Select * From {" & name & "} "
    Dim dt1 As DataTable = cmd.ExecuteReader()
    For Each dr2 As DataRow In dt1.Datarows
        nd3.nodes.add("0101",dr2("CSName"))
    Next
Next
tr.ExpandAll()
tr.SelectedNode = tr.Nodes(0)