主题：[求助]请问这段错误什么情况？

nodemousedoubleclick事件里的代码为：

Dim s As String = e.Node.Name
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



此主题相关图片如下：20121226172504.jpg