Question

这是我的代码：

Dim I As Integer
cn.BeginTrans()
cn.Execute("UPDATE tb_user_account SET st_time_per_day='" & TempTPD.Text &
        "' WHERE st_acc_number='" & ListViewAccounts.SelectedItems(I).Text & "'")
cn.CommitTrans()

现在做的是更新列表视图中的选定项目，我正在使用上下文菜单条我注意到的是，当我突出显示两个项目时它只更新1.我想要做的是，根据我突出显示的项目更新项目。我怎样才能做到这一点？

Answer 1

尝试遍历所有SelectedItems并为每个执行更新查询：

cn.BeginTrans()
For Each selectedItem As ListViewItem In ListViewAccounts.SelectedItems
    cn.Execute("UPDATE tb_user_account SET st_time_per_day='" _ 
                & TempTPD.Text & _
                "' WHERE st_acc_number='" _
                & selectedItem.Text & "'")
Next
cn.CommitTrans()

在列表视图中选择多个项目

1 个答案: