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

代用后自动生成一行

Select Case e.DataCol.Name

Case "处置_代用"

If e.DataRow("处置_代用") = True Then

Dim cr As DataRow = e.DataRow

Dim nr As Row = Tables("角钢进料表明细").addnew

nr("进料表编号") = cr("进料表编号")

nr("机组") = cr("机组")

nr("规格") = cr("处置_代用_规格")

nr("材质") = cr("处置_代用_材质")

nr("长度m") = cr("处置_代用_长度m")

nr("处置_代用1") = True

Dim idx As Integer = Tables("角钢进料表明细").FindRow(cr)

nr.move(idx+1)

End If

End Select

现在想实现"处置_代用_规格"、"处置_代用_材质"、"处置_代用_长度m"，有变更时，自动生成行中的“规格”、"材质"、“长度”也自动变更

如何实现？

主题：数据自动变更