代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataRow("物资说明") = "紧固件" Then

Dim ndr As DataRow = DataTables("领料清单").Find("预算编号 = '" & e.DataRow("预算编号") & "'")

If ndr Is Nothing Then

Dim nr As Row = Tables("领料清单").AddNew

nr.Move(0)

ndr = nr.DataRow

End If

ndr("编号") = e.DataRow("编号")

ndr("预算编号") = e.DataRow("预算编号")

ndr("生产令号") = e.DataRow("生产令号")

ndr("项目名称") = e.DataRow("项目名称")

ndr("物资说明") = e.DataRow("物资说明")

ndr("名称") = "/"

ndr("规格") = "/"

ndr("材质") = "/"

ndr("单位") = "批"

ndr("领料数量") = "1"

ndr("领料日期") = Date.today

ndr.Move(0)

End If

主题：代码