主题：自动生成行

表A

Select Case e.DataCol.name
    Case "焊缝编号"
        If e.DataRow.IsNull("焊缝编号") Then
            DataTables("组装件详单及尺寸要求").DeleteFor("零部件编号='" & e.DataRow("零部件编号") & "'")
        Else
            Dim ndr1 As DataRow = DataTables("组装件详单及尺寸要求").Find("零部件编号 = '" & e.DataRow("零部件编号") & "'")
            If ndr1 Is Nothing Then
                For i As Integer = 1 To e.DataRow("数量")
                    Dim ndr As DataRow = DataTables("组装件详单及尺寸要求").AddNew
                    ndr("零部件编号") = e.DataRow("零部件编号")
                    ndr("数量") = "1"
                Next
            End If
        End If
End Select

若表A 中数量改变，表“组装件详单及尺寸要求”中自动生成的行数也要随之改变，该怎么改？

是不是因为表A 中“数量”是表达式列，所以不行，要怎么改？

在“焊接部件清单”中只要列“焊缝编号”不为空，则在表“组装件详单及尺寸要求”中自动增加行

当“数量”列有变化时，“组装件详单及尺寸要求”中的行数不能随之改变

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

是的

Select Case e.DataCol.name
    Case "焊接方法"
        If e.DataRow.IsNull("焊接方法") Then
            DataTables("焊接明细表").DeleteFor("零部件编号 = '" & e.DataRow("零部件编号") & "'")
        Else
            Dim ndr2 As DataRow = DataTables("焊接明细表").Find("零部件编号 = '" & e.DataRow("零部件编号") & "' And 焊缝编号 = '" & e.DataRow("焊缝编号") & "' And 工艺卡号 = '" & e.DataRow("工艺卡号") & "'And 焊接方法 = '" & e.DataRow("焊接方法") & "'")
            If ndr2 Is Nothing Then
                For i As Integer = 1 To e.DataRow("数量")
                    Dim ndr As DataRow = DataTables("焊接明细表").AddNew
                    ndr("零部件编号") = e.DataRow("零部件编号")
                    ndr("焊缝编号") = e.DataRow("焊缝编号")
                    ndr("工艺卡号") = e.DataRow("工艺卡号")
                    ndr("焊接方法") = e.DataRow("焊接方法")
                    ndr("数量") = "1"
                Next
            End If
        End If
End Select

这一类代码中参数如“焊缝编号”或“工艺卡号”等，若主表中参数修改，如何能让关联表中生成行中的参数也自动修改？