Dim s As String = e.Node.Text Dim i As Integer = s.IndexOf(" ") s = s.SubString(0,i) Dim trv As WinForm.TreeView = e.Form.Controls("综合部物品分类设置TreeView1") If e.Node.Name = "全部" Then Tables("综合部物品分类设置_综合部物品分类设置Table1").Filter = "" Else Tables("综合部物品分类设置_综合部物品分类设置Table1").Filter = "分类编号 Like '" & s & "*'" End If