如何将listview子项保存到数据库

Question

我想将列表视图子项保存在表中

代码

Dim sSQL As String
    Dim idx As Integer
    idx = 1
    With lstLVDetails.ListItems
        For idx = idx To .count
                sSQL = "Insert into sample values ('" & .Item(idx) & "', '" & .Item(idx).SubItems(1) & "') "
                RdoVisPay.Execute sSQL, rdExecDirect
        Next idx
       End 

上面的代码没有显示任何错误，但它没有插入任何值。

我的代码有什么问题。

需要代码帮助...

Answer 1

放置一个断点：

RdoVisPay.Execute sSQL, rdExecDirect

这条线是否被击中？一开始，idx = 1。如果lstLVDetails.ListItems.Count=1，您将永远不会点击代码来插入任何内容。