主题：自动复制

此主题相关图片如下：入库.png

此主题相关图片如下：库存.png

固定资产入库表有数量列，当输入3时固定资产库存表增加3行,固定资产库存表:入库单号、名称、规格 等于固定资产入库：入库单号、名称、规格，如果修改固定资产入库表数量列能自动更新，数量列输入2时固定资产库存表为2行。

我写了代码，只能增加行不能更新，并且 入库单号、名称、规格 只能复制增加的第一行

If e.DataCol.Name = "数量" Then
    If e.DataRow.Isnull("数量") = False
    Dim n As Integer = e.DataRow("数量")
    Dim nma() As String = {"入库单号","名称","规格"}
    Dim nmb() As String = {"入库单号","名称","规格"}
    Dim dr As DataRow = DataTables("固定资产库存").AddNew(n)
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
  End If
End If

请指教代码，谢谢

出现错误

此主题相关图片如下：qq截图20131127181115.png

For i As Integer = 1 To n 去掉出现这样

此主题相关图片如下：qq截图20131127191558.png

也不行

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目1.zip

太谢谢