主题：如何有条件地填充部分字段的内容。

我给你一个思路，在表A找出相同产品和规格的行，如果找到，保存在变量dr, 如果没有找到，新增一行，保存在变量dr，填入产品和规格，最后统一写入数量和金额:

代码：

Dim r1 As DataRow
Dim r2 As DataRow
For Each r1 In DataTables("表B").DataRows
    If r1.IsNull("产品") OrElse r1.IsNull("规格") Then
        Continue For
    End If
    r2 = DataTables("表A").Find("产品 = '" & r1("产品") & "' And 规格 = '" & r1("规格") & "'")
    If r2 Is Nothing Then
        r2 = DataTables("表A").AddNew()
        r2("产品") = r1("产品")
        r2("规格") = r1("规格")
    End If
    r2("数量") = r1("数量")
    r2("金额") = r1("金额")
Next

帖子标题我帮你改了一下。

标题尽可能地简单描述一下问题。