将 Listview 内容保存到 ms access db

Question

我已将另一个列标题添加到我的列表视图VAT，它从另一个表加载并填充到列表视图。到目前为止，一切正常。现在，我正在尝试将列表视图中的信息保存到另一个表中，但事实证明这很困难。

我已经在网上搜索了一个星期，但这里是我加载到 listview 的代码。

Public Sub cmdLookup_Click()
On Error GoTo SearchError

With Connect.rsitem
 .Filter = "Itemno = '" & txtSearch.Text & "' or desc1 like '" & txtSearch.Text & _
     "*' or desc2 like '" & txtSearch.Text & "*' or upc = '" & txtSearch.Text & "'"
  
     .Open
    If .RecordCount > 1 Then
       FrmSearch.Show vbModal
   End If
   If .RecordCount > 0 Then
      QtyRemain = !onhandqty
   If QtyRemain > 0 Then
         Set x = ListView.ListItems.Add(, , !itemno)
            x.SubItems(1) = !desc1
            x.SubItems(2) = !desc2
            x.SubItems(3) = !Size
            x.SubItems(4) = 1
            x.SubItems(5) = FormatNumber(!unitprice)
            x.SubItems(6) = FormatNumber(!unitprice)
            x.SubItems(7) = !upc
            x.SubItems(8) = !Vat
            x.EnsureVisible
            x.Selected = True

保存部分

Public Sub SaveSales()
Dim i As Integer
i = 1
 Do Until i = (ListView.ListItems.Count + 1)
 With ListView.ListItems(i)
       Connect.AddSales txtinvoice.Text, .Text, .SubItems(4), .SubItems(6), txtdate.Text, txtSubTotal.Text, _
                     txtDiscount.Text, txtTotal.Text, frmPayment.txtCash.Text, _
                     CDbl(frmPayment.txtCash.Text) - CDbl(txtTotal.Text), "Open", frmLogin.Cashier
 End With
i = i + 1
   Loop
End Sub

Answer 1

终于可以正常工作了，从数据环境调整 SQL 参数以包含“Vat”，即“.subitems(8)”。谢谢乔治