Dim Value()As String Dim flt As String Value = e.Node.FullPath.Split("\") Select Case e.Node.Level Case 0 flt ="[企业类别] = '" & Value(0) & "'" Case 1 flt ="[企业类别] = '" & Value(0) & "' And [企业名称] = '" & Value(1) & "'" End Select Dim i As Integer = Tables("往来企业").FindRow(flt,0,True) If i > 0 Then Tables("往来企业").Position = i End If