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

Question

我想在表

中保存listview子项

代码

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，您将永远不会点击代码来插入任何内容。