此主题相关图片如下:入库.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
请指教代码,谢谢
[此贴子已经被作者于2013-11-27 16:28:38编辑过]