为什么会提示没有当前索引，操作无效？！！！！

[胖胖熊]

我准备在LIS_VIEW中实现，点击LIst_view中的某一行，返回到一个窗口，显示该行中的数据，但是点击时提示错误： “实时错误3019,没有当前索引，操作无效”

我的代码：

Option Explicit

Dim Asc() As Long
Dim db As DATABASE
Dim rs As Recordset

Dim Rec As Integer
－－－－－－－－－－－－－－－－－－－－－－
Private Sub cmdEdit_Click()


MsgBox "test"
Dim i As Integer
i = mLv.SelectedItem.Index
rs.Seek "=", mLv.SelectedItem.Text '这里提示错误： “实时错误3019,没有当前索引，操作无效”

userEditname = rs.Fields("fw_name") & vbNullString
userEditpwd = rs.Fields("fw_pwd") & vbNullString
userEdittel = rs.Fields("user_tel") & vbNullString
userEditphone = rs.Fields("user_phone") & vbNullString
userEditemail = rs.Fields("user_email") & vbNullString
frm_edit_user.Show (1)
If mSave Then
rs.Edit
rs.Fields("fw_name") = userEditname & vbNullString
rs.Fields("fw_pwd") = userEditpwd & vbNullString
rs.Fields("user_tel") = userEdittel & " "
rs.Fields("user_phone") = userEditphone & " "
rs.Fields("user_email") = userEditemail & " "
rs.Update
With mLv.ListItems(i)
.SubItems(1) = rs.Fields("user_id")
.SubItems(1) = rs.Fields("fw_name")
.SubItems(2) = rs.Fields("user_tel")
.SubItems(3) = rs.Fields("user_phone")
.SubItems(4) = rs.Fields("user_email")
End With
'DispId
mSave = False
End If
End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Private Sub Form_Load()

Set db = Workspaces(0).OpenDatabase(App.Path & "\Data\fw_Data.mdb", False)
Set rs = db.OpenRecordset("fw_users", dbOpenTable)


'rs.Index = "编号"

mLv.View = lvwReport
mLv.GridLines = True

mLv.ColumnHeaders.Add , , "编号"
mLv.ColumnHeaders.Add , , "姓名"
mLv.ColumnHeaders.Add , , "联系电话"
mLv.ColumnHeaders.Add , , "手机号"
mLv.ColumnHeaders.Add , , "电子邮件"
If rs.RecordCount <> 0 Then
DispId
End If
－－－－－－－－－－－－－－－－－－－－－－－－
Public Sub DispId()
Dim i As Integer
mLv.ListItems.Clear
rs.MoveLast
Rec = rs.RecordCount
rs.MoveFirst
For i = 1 To Rec
mLv.ListItems.Add i, , rs.Fields("user_id")
With mLv.ListItems(i)
.SubItems(1) = rs.Fields("fw_name") & vbNullString
.SubItems(2) = rs.Fields("user_tel") & vbNullString
.SubItems(3) = rs.Fields("user_phone") & vbNullString
.SubItems(4) = rs.Fields("user_email") & vbNullString
End With
rs.MoveNext
If rs.EOF Then Exit For
Next
End Sub
------------------------------
rs.Seek "=", mLv.SelectedItem.Text 这里的问题，MLV是LIST_VIEW，可以看锝到它有值了，但是RS.SEEK那不知道怎么错了啊！


帮帮我巴！～～～

谢谢～～～～～想了很久了！！

[lsxad]

用 mLv.ListItems(mLv.SelectedItem.Index).text 试试