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

2007-01-12 01:16:02 379 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

gridview获取当前行索引在用GridView控件时，我们经常会碰到获取当前行的索引，通过索引进行许多操作。例如，可以获得当前行某一个控件元素；设置某一元素的值等等。下面结合实例介绍几种获得GridView当前行索引值的方法。实例：① 目的：获取GridView中RowCommand的当前索引行。② 前台页面：在GridView中添加一模版列，里面添加一个LinkButton控件。代码："操作"> 阅读详情

我准备在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那不知道怎么错了啊！

帮帮我巴！～～～

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

...全文