简单问题,关于listview删除 十分钟揭贴

Question

Dim cn As New ADODB.ConnectionDim command As New ADODB.command
cn.Open FrmMain.str1mes = MsgBox("您真的要删除该类吗?", vbOKCancel + vbInformation, "提示")
If mes = vbOK Then
   ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
   command.ActiveConnection = cn
   command.CommandText = "delete * from sort where 类别名='" & ListView1.SelectedItem.text & "'"
   command.Execute
   MsgBox "该类已经删除!", vbInformation, "提示"
   cn.Close
   但我按上面的做,删除的是选定记录的上一条.请问是怎么回事

Answer 1

dim str as String
If mes = vbOK Then
   str=CStr(ListView1.ListItems(i).SumItems(j))
   ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
   command.ActiveConnection = cn
   command.CommandText = "delete * from sort where 类别名='" str & "'"
   command.Execute
   MsgBox "该类已经删除!", vbInformation, "提示"
   cn.Close
end if