此主题相关图片如下：入库.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

请指教代码，谢谢

建议：

1、两个表通过入库单号建立关联，固定资产入库表为父表，固定资产库存表为子表。

2、固定资产库存表的名称、规格改为表达式列，用表达式引用父表数据:

http://www.foxtable.com/help/topics/0106.htm

3、自动增加删除行的代码改为：

If e.DataCol.Name = "数量" OrElse e.DataCol.name = "入库单号" Then
    If e.DataRow.Isnull("数量") = False Then
        Dim n As Integer = e.DataRow("数量")
        Dim drs As List(of DataRow) = e.DataRow.GetChildRows("固定资产库存表")
        If drs.count > n Then
            For i As Integer = n  To drs.count - 1
                drs(i).delete
            Next
        Else
            For i As Integer = 0 To drs.count - 1
                Dim dr As DataRow = DataTables("固定资产库存").AddNew
                dr("入库单号") = e.DataRow("入库单号")
            Next
        End If
    End If
End If

出现错误

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

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

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

也不行

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

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

太谢谢