代用后自动生成一行
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"，有变更时，自动生成行中的“规格”、"材质"、“长度”也自动变更
如何实现？
加好友 
发短信
Post By：2019/8/14 10:44:00 [显示全部帖子]
