Dim s As String = trv.SelectedNode.Text.SubString(0,t) 用SubString(s.Length - 6) 不是简单吗。
s2 = "SubString(分类编号, 1, " & t & ") = '" & s & "' And len(分类编号) = " & t+2 是不是dr(···)
SubString(分类编号, 1, " & t & ") 有这种表达方式?
、、、、、、 后面没看完了。。。 呵呵。