主题：目录树查找行

老师，我通过目录树查找对应的行，当数据表中分类前面有空格六查找不到对应的行，怎么解决？

比如我点综合管理，定位不到第一行，如果表中数据前面没有空格就没问题，但空格又必须有。

 

此主题相关图片如下：qq截图20191101094650.png

 

AfterSelectNode事件代码如下：

Select Case e.Node.Level
    Case 0
        Dim r As Integer
        r = Tables(vars("editTable")).FindRow("[分类] Like '" & e.Node.text & "'") '从第一行开始查找
        If r >= 0 Then '如果找到的话
            Tables(vars("editTable")).Position = r '定位到找到的行.
        End If
    Case 1
        Dim r1 As Integer
        r1 = Tables(vars("editTable")).FindRow("[分组] Like '" & e.Node.text & "' and [分类] Like '" & e.Node.ParentNode.text & "'") '从第一行开始查找
        If r1 >= 0 Then '如果找到的话
            Tables(vars("editTable")).Position = r1 '定位到找到的行.
        End If
    Case 2
        Dim r2 As Integer
        r2 = Tables(vars("editTable")).FindRow("[名称] Like '" & e.Node.text & "' and [分组] Like '" & e.Node.ParentNode.text & "'") '从第一行开始查找
        If r2 >= 0 Then '如果找到的话
            Tables(vars("editTable")).Position = r2 '定位到找到的行.
        End If
End Select

明白怎么弄来。like有几种方式，前面加%就可以了