如何列表視圖子項保存到數據庫

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，則永遠不會輸入任何代碼。