对于回路VB6双重故障.

问题描述

专家们.我不知道下面的循环有问题.但是，当我调用此函数时，它应该将列表框中的记录插入到数据库访问数据库表中.但它会将第一条记录保存两次. ，我做错了吗?
例如
产品代码
124318N麦卡特
124318N麦卡特
141652G米饭

Hi Experts. I dont know wats wrong with the loop below. But when i call this function its supposed to insert the records in a listbox into a db access db table. but it saves the first record twice. Wat could i be doing wrong?
e.g
Product Code
124318N Mkate
124318N Mkate
141652G Rice

Sub AddToList()
With dbData.Recordset
For i = 1 To lvprod.ListItems.Count
 .AddNew
    .Fields(0) = lvprod.ListItems(i).Text ''prod code
    .Fields(1) = lvprod.ListItems(i).SubItems(2)
    .Fields(2) = txtPrice.Text  ''price
    .Fields(3) = lvprod.ListItems(i).SubItems(1) ''qty
    .Fields(4) = 0
    .Fields(5) = lvprod.ListItems(i).SubItems(4)
    .Fields(6) = Month(Now)
    .Fields(7) = Year(Now)
    .Update
    Next i
dbData.Refresh
End With
    End Sub

推荐答案

这篇关于对于回路VB6双重故障.的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！