主题：语法解法

上图设置步骤是：

1、全局代码

Public bl_trv厂商 As String() = {"按【类型】划分","按【公司】划分","按【区域】划分","按【创建者】划分","按【创建日期】划分","按【付款周期】划分"}

2、窗口的AfterLoad事件

e.Form.StopRedraw()  '暂停绘制窗口

'----打开窗口后打开指定的导航页面

Dim navb1 As WinForm.NavBar = e.Form.Controls("NavBar1")

navb1.SelectedIndex=0

'----维护【供货厂商】目录树

Dim trv厂商 As WinForm.TreeView = e.Form.Controls("Trv供货厂商")

trv厂商.Nodes.Clear   '清除所有节点

'====添加目录树的【节点】

For i As Integer = 0 To bl_trv厂商.Length-1

    Dim trvnd厂商 As WinForm.TreeNode

    trvnd厂商=trv厂商.Nodes.Add("Root" & i,bl_trv厂商(i))

Next

e.Form.ResumeRedraw()  '恢复绘制窗口

3、需求（想通过临时表在各节点下创建子节点）

3.1生成的临时表

dim dt as datatable

dim cmd as new sqlcommand

cmd.c="数据源"

cmd.commandtext=“select

sapprd.lfa1.lifnr as 供应商_编号,name1 as 供应商_名称,sortl as 供应商_简称,anred as 供应商_标题,(case ktokk when 'Z001' then '外部供应商' when 'Z002' then '内部供应商'  when 'Z003' then '一次性供应商'  when 'Z004' then '财务供应商' else '其他' end) as 供应商_类型,stras as 联系地址_地址,ort01 as 联系地址_城市,ort02 as 联系地址_常规地区,regio as 联系地址_系统地区,pfach as 联系地址_邮政信箱,pstlz as 联系地址_邮政编码,telbx as 联系地址_电子信箱,telf1 as 联系方式_第一个电话号,telf2 as 联系方式_第二个电话号,sapprd.lfa1.erdat as 其他_创建日期,name_text as 其他_创建者,bukrs as 财务信息_公司代码,akont as 财务信息_统驭科目,ztag1 as 财务信息_付款天数,stceg as 财务信息_增值税登记号,bankn as 银行信息_帐户号码,koinh as 银行信息_帐户名,kovon as 银行信息_开始日期,kobis as 银行信息_终止日期

f rom