为何索引找不到

[iampc]

Dim DB As Database
Dim RS As Recordset
Dim i As Integer
Dim nodex As Node
Dim j As String
Dim itemx As ListItem
Dim itemy As ListItem
Dim flag As Boolean
Private Sub Command1_Click()
TreeView1.LineStyle = tvwRootLines
Set nodex = TreeView1.Nodes.Add(, , "r", "人力资源")
For i = 0 To 25
Set nodex = TreeView1.Nodes.Add("r", tvwChild, Chr(65 + i), Chr(65 + i))
RS.MoveFirst
Do While Not RS.EOF
If UCase(Left(RS!ZIMO, 1)) = Chr(65 + i) Then
Set nodex = TreeView1.Nodes.Add(Chr(65 + i), tvwChild, , RS!ÐÕÃû)
End If
RS.MoveNext
Loop
Next
Command1.Enabled = False
'***************************************

End Sub
Private Sub Form_Load()
Set DB = OpenDatabase(App.Path & "\HT1DATA2.mdb")
Set RS = DB.OpenRecordset("人力资源")
flag = False
End Sub

Private Sub TreeView1_Click()
'On Error Resume Next
RS.MoveFirst
If flag = True Then
j = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
If Not j = "人力资源" Then
RS.Index = "姓名"
RS.Seek "=", j
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
Dim itemx As ListItem
ListView1.ColumnHeaders.Add 1, "a", "姓名", ListView1.Width / 2
ListView1.ColumnHeaders.Add 2, "b", "职称", ListView1.Width / 2
Set itemx = ListView1.ListItems.Add(, , RS!姓名)
itemx.SubItems(1) = RS!职称
ListView1.View = lvwReport
End If
End If
Exit Sub
erus:
MsgBox Err.Description
End Sub
Private Sub TreeView1_Collapse(ByVal Node As ComctlLib.Node)
flag = False
End Sub
Private Sub TreeView1_Expand(ByVal Node As ComctlLib.Node)
flag = True
End Sub









Dim DB As Database
Dim RS As Recordset
Dim i As Integer
Dim nodex As Node
Dim j As String
Dim itemx As ListItem
Dim itemy As ListItem
Dim flag As Boolean
Private Sub Command1_Click()
TreeView1.LineStyle = tvwRootLines
Set nodex = TreeView1.Nodes.Add(, , "r", "Root")
For i = 0 To 25
Set nodex = TreeView1.Nodes.Add("r", tvwChild, Chr(65 + i), Chr(65 + i))
RS.MoveFirst
Do While Not RS.EOF
If UCase(Left(RS!Name, 1)) = Chr(65 + i) Then
Set nodex = TreeView1.Nodes.Add(Chr(65 + i), tvwChild, , RS!Name)
End If
RS.MoveNext
Loop
Next
Command1.Enabled = False
End Sub
Private Sub Form_Load()
Set DB = OpenDatabase(App.Path & "\sigma1.mdb")
Set RS = DB.OpenRecordset("master")

flag = False
End Sub
Private Sub TreeView1_Click()
On Error Resume Next
RS.MoveFirst
If flag = True Then
j = TreeView1.Nodes.Item(TreeView1.SelectedItem.Index)
If Not j = "Root" Then
RS.Index = "mastname"
RS.Seek "=", j
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
Dim itemx As ListItem
ListView1.ColumnHeaders.Add 1, "a", "Name", ListView1.Width / 2
ListView1.ColumnHeaders.Add 2, "b", "City", ListView1.Width / 2
Set itemx = ListView1.ListItems.Add(, , RS!Name)
itemx.SubItems(1) = RS!city
ListView1.View = lvwReport
End If
End If
Exit Sub
erus:
MsgBox Err.Description
End Sub
Private Sub TreeView1_Collapse(ByVal Node As ComctlLib.Node)
flag = False
End Sub
Private Sub TreeView1_Expand(ByVal Node As ComctlLib.Node)
flag = True
End Sub