ListView里删除特定的行~达人帮忙

Question

Private Sub Command2_Click()
Dim i As Integer
Dim n As Integer
n = 0With ListView1
For i = .ListItems.Count To 1 Step -1
If .ListItems(i) = "√" Then
n = n + 1
End If
NextIf n = 1 Then
If MsgBox("真的要删除 [序号" & 这里怎么写？别用.SelectedItem.Index啊,因为这个是按选择的行而不是.ListItems(i) = "√" 里某行的序号 & "] 的数据吗?", vbQuestion + vbYesNo + vbDefaultButton2, "提示") = vbNo Then
Exit Sub
End If
End IfIf n > 1 Then
If MsgBox("真的要删除这[" & n & "]条数据吗?", vbQuestion + vbYesNo + vbDefaultButton2, "提示") = vbNo Then
Exit Sub
End If
End Ifrs.ActiveConnection.Execute "Delete From ServerData Where " & Adodc1.Recordset.Fields(0).Name & "='" & Trim(这里怎么写？) & "'"
End With
End Sub

Answer 1

用index控制，然后再选定就删掉了

Answer 2

再定义个变量,比如ID,
If .ListItems(i) = "√" Then 
    n = n + 1 
    id=i
End If If n = 1 Then 
    If MsgBox("真的要删除 [序号" & id & "] 的数据吗?", vbQuestion + vbYesNo + vbDefaultButton2, "提示") = vbNo Then 
    Exit Sub 
End If

Answer 3

rs.ActiveConnection.Execute "Delete From ServerData Where " & Adodc1.Recordset.Fields(0).Name & "='" & Trim(这里怎么写？) & "'" 帮忙看下啊

Answer 4

Private Sub Command2_Click() 
Dim i As Integer 
Dim n As Integer
Dim selStr as String
n = 0 
selStr=""With ListView1 
For i = .ListItems.Count To 1 Step -1 
If .ListItems(i) = "√" Then 
n = n + 1 
selStr=selStr & "," & .ListItems(i).Text & "'"
End If 
Next If n = 1 Then 
If MsgBox("真的要删除 [序号" & 这里怎么写？别用.SelectedItem.Index啊,因为这个是按选择的行而不是.ListItems(i) = "√" 里某行的序号 & "] 的数据吗?", vbQuestion + vbYesNo + vbDefaultButton2, "提示") = vbNo Then 
Exit Sub 
End If 
End If If n > 1 Then 
If MsgBox("真的要删除这[" & n & "]条数据吗?", vbQuestion + vbYesNo + vbDefaultButton2, "提示") = vbNo Then 
Exit Sub 
End If 
End If selStr="('" & Mid(selStr,2) & ")"rs.ActiveConnection.Execute "Delete From ServerData Where " & Adodc1.Recordset.Fields(0).Name & " in " & selStr 
End With 
End Sub