Tables("国内物流").Filter = "业务类型 ='天津水运'"
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("国内物流", "年份|月份")
trv.Nodes.Insert("显示所有行",0)
Tables("国内物流").Filter = "业务类型 ='天津水运'"
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[年份] = '" & dr("年份") & "'"
Case 1
Filter = "[年份] = '" & dr("年份") & "' And [月份] = '" & dr("月份") & "'"
End Select
End If
谢谢老师