主题：目录树代码

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

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，但是表格中确实有这样的值，不知道是什么原因？