以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口查询表包含列标题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137067)
--  作者：良才
--  发布时间：2019/6/27 15:13:00
--  窗口查询表包含列标题
t 表包含了 "物品类别","物品名称"，请老师指教，谢谢！
t = e.Form.controls("Table1").Table
Select Case t.Cols.Name
    Case "物品类别","物品名称"
        Dim tr As WinForm.TreeView = Forms("共有窗体").Controls("TreeView2")
         tr.CreateTree("物品管理_Table1","物品类别|物品名称")
End Select
--  作者：有点甜
--  发布时间：2019/6/27 15:35:00
--  


Dim t As Table = e.Form.controls("Table1").Table
If t.Cols.Contains("物品类别") AndAlso t.Cols.Contains("物品名称") Then
    Dim tr As WinForm.TreeView = Forms("共有窗体").Controls("TreeView2")
    tr.CreateTree(t.DataTable,"物品类别|物品名称")
End If

 
--  作者：良才
--  发布时间：2019/6/27 15:42:00
--  
谢谢