Question

我有一个网格，它从绑定到网格的“数据”控件获取数据源。我想将另一个记录集中的数据添加到此记录集中。

到目前为止我得到的是：

If rs.BOF = False Then
   rs.MoveFirst
End If

Do Until rs.EOF
   With Dta_Lines.Recordset
      .AddNew
      !Quantity_Ordered = rs.Fields(2)
      !Stock_Code = CStr(rs.Fields(1))
   End With

   rs.MoveNext
Loop

Dta_Lines.RecordSet.Update
Dta_Lines.RecordSet.Refresh

但是，这并没有正确填充网格。新行保持空白，然后在调用Refresh方法后删除。

如何更改此设置以便网格添加新行并填充Stock_Code和Quantity_Ordered值？

Answer 1

我的VB6知识非常有限，但是，您是否尝试将With调用放在Do Until rs.EOF With Dta_Lines.Recordset .AddNew !Quantity_Ordered = rs.Fields(2) !Stock_Code = CStr(rs.Fields(1)) .Update End With rs.MoveNext Loop块中？

我认为在它的当前结构中，它将添加一个新行但不保存它，因为每个循环都会覆盖以前添加的行，因为更改未提交。

{{1}}

微妙的改变，但我认为它应该有所作为。

使用带数据控件的AddNew更新RecordSet

1 个答案: