求教一个关于ListView控件用复选框批量修改的问题

[nyclwdy]

我们公司做了一个查询报表，但是需要选择（复选）里面的数据进行批量修改，比如说，选择几个行，然后将他们在SQL server 中的某两列如：列名为“贷款办理情况”中的相应的值修改为 Combo1.text。列名为“贷款银行”中的相应的值修改为Combo2.text？
我在网上找了一些方法，但是都不成功，所以来论坛求教一下各位老师，这个该怎么做啊？


下面是我们调用报表的两段代码

Sub BLAJBT() '设置办理按歇报表表头
Call ClsAPP
Me.ListView6.Visible = True
Me.ListView6.CheckBoxes = True
Me.Frame1.Visible = True
DYBQ = "办理按揭"
With ListView6
    .ColumnHeaders.Add = "编号"
    .ColumnHeaders.Add = "房号"
    .ColumnHeaders.Add = "姓名"
    .ColumnHeaders.Add = "优惠后总价"
    .ColumnHeaders.Add = "首付款"
    .ColumnHeaders.Add = "付款方式"
    .ColumnHeaders.Add = "买卖合同签定与否"
    .ColumnHeaders.Add = "经手人"
    .ColumnHeaders(5).Width = 1000
    '.ColumnHeaders(6).Width = 0
    .ColumnHeaders(7).Width = 0
End With
Call BLAJDY
End Sub

Sub BLAJDY() '调用未办理按照
Me.ListView6.ListItems.Clear
SQL = "select * from housingresources where 付款方式 =  '按揭贷款' and 贷款办理情况 is null and 欠款额 = '0' "
Call OpenConn
i = 1
    rs.Open SQL, cn, 1, 1
    On Error Resume Next
    Do While Not rs.EOF
        Set addLVW = Me.ListView6.ListItems.Add(, , i, , 1)
            addLVW.SubItems(1) = rs!房号
            addLVW.SubItems(2) = rs!客户姓名
            addLVW.SubItems(3) = rs!优惠后总价
            addLVW.SubItems(4) = rs!首付款总额
            addLVW.SubItems(5) = rs!付款方式
            addLVW.SubItems(6) = rs!正式合同
            addLVW.SubItems(7) = rs!售楼员统计
            rs.MoveNext
            i = i + 1
    Loop
Me.labCOUNT.Caption = "符合办理按揭条件的共" & rs.RecordCount & "户。"
Call CloseConn
End Sub

[Tiger_Zhao]

Private Sub Command1_Click()
    Call OpenConn
    With Me.ListView6.ListItems
        For i = 1 To .Count
            If .Item(i).Checked Then
                SQL = "UPDATE housingresources SET " & _
                      " [贷款办理情况] = '" & Combo1.Text & "'," & _
                      " [贷款银行] = '" & Combo2.Text & "' " & _
                      " WHERE [房号] = '" & .Item(i).SubItems(1) & "'"
                cn.Execute SQL
            End If
        Next
    End With
    Call CloseConn
End Sub

[nyclwdy]

真的非常非常感谢，谢谢这位老师的帮助