以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91085)
--  作者：kaituozhe
--  发布时间：2016/9/29 8:48:00
--  目录树代码

这是窗口目录树NodeMouseClick中的一段代码，目的是通过单击目录树，窗口中相应text移动到相应行的内容，但是不知道什么原因，实现不行不知道是什么原因？怎么修改？

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
Dim r As Integer
r = Tables("审计档案").FindRow(Filter)\'从第一行开始查找
If r >= 0 Then \'如果找到的话
    Tables("审计档案").Position = r \'定位到找到的行.
End If
--  作者：kaituozhe
--  发布时间：2016/9/29 8:53:00
--  

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
Dim r As Integer
r = Tables("审计档案").FindRow(Filter)\'从第一行开始查找

msgbox(r)
If r >= 0 Then \'如果找到的话
    Tables("审计档案").Position = r \'定位到找到的行.
End If

黄色部分的值一直显示是-1，但是表格中确实有这样的值，不知道是什么原因？
--  作者：kaituozhe
--  发布时间：2016/9/29 8:55:00
--  
找到原因，此表格执行的筛选