主题：报错

[目的将附表的副表中的多行数据添加主表中去，开始只有一行添加到主表中，第二次就提示错误，请见图片，谢谢

 

Dim r1 As Row = Tables("库调明细_副表").Current
Dim r2 As Row = Tables("库调明细表_主表").AddNew
For Each c As Col In Tables("库调明细_副表").Cols
    If Tables("库调明细表_主表").Cols.Contains(c.name) Then
        r2(c.name) = r1(c.name)             ‘将副表中字段内容加入主表
    End If
Next

r2.DataRow("单据日期")= rq.Value              ’将窗口控件内容加入主表
r2.DataRow("收发类型")= djlx.text
r2.DataRow("门店")= md.text
r2.DataRow("业务单号")= djbh.text

此主题相关图片如下：uf~~$u0ub%{c{k(h_`g0gc.jpg