以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据自动变更  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139501)
--  作者：13775189031
--  发布时间：2019/8/14 10:44:00
--  数据自动变更
代用后自动生成一行

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"，有变更时，自动生成行中的“规格”、"材质"、“长度”也自动变更
如何实现？
--  作者：有点蓝
--  发布时间：2019/8/14 11:08:00
--  
这种用法您项目里到处都是，还问？

根据进料表编号到"角钢进料表明细"select查到对应的行，然后改对应的列值即可