主题：自动输入代码需要改进 求助

 什么意思？有具体例子才能具体分析

 这个意思？

http://www.foxtable.com/help/topics/1459.htm

 这个意思？

If e.DataCol.Name = "部件名称" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim drs As List(Of DataRow) = DataTables("构件库").Select("部件名称 = '" & e.DataRow("部件名称") & "'" )
    If drs.Count > 0 Then
        e.DataRow("净料_长")= drs(0)("净料_长")
        e.DataRow("净料_宽")= drs(0)("净料_宽")
        e.DataRow("净料_厚")= drs(0)("净料_厚")
        e.DataRow("封边工艺")= drs(0)("封边工艺")
        e.DataRow("单位")= drs(0)("单位")
        e.DataRow("零件名称")= drs(0)("零件名称")
       
        For i As Integer = 1 To drs.Count - 1
            SystemReady = False
            Dim dr As DataRow = e.DataTable.AddNew
            dr("订单号") = e.DataRow("订单号")
            dr("部件名称") = drs(i)("部件名称")
            SystemReady = True
            dr("净料_长") = drs(i)("净料_长")
            dr("净料_宽")= drs(i)("净料_宽")
            dr("净料_厚")= drs(i)("净料_厚")
            dr("单位")= drs(i)("单位")
            dr("零件名称")= drs(i)("零件名称")
            dr("封边工艺")= drs(i)("封边工艺")
        Next
       
    End If
End If

With Tables("订单明细")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("风格")
    .MergeCols.Add("部件名称")
    .MergeSort = "风格,部件名称"
    .AllowMerge = True
End With
If e.DataCol.Name = "封边工艺" Then
    If e.DataRow("封边工艺") ="1"  Then
        e.DataRow("下料_宽") = e.DataRow("净料_宽") - 3
        e.DataRow("下料_长") = e.DataRow("净料_宽") - 3
        e.DataRow("下料_厚") = e.DataRow("净料_宽") - 3
    ElseIf e.DataRow("封边工艺") ="2"  Then
        e.DataRow("下料_宽") = e.DataRow("净料_宽") - 5
        e.DataRow("下料_长") = e.DataRow("净料_宽") - 5
        e.DataRow("下料_厚") = e.DataRow("净料_宽") - 5
        'ElseIf e.DataRow("材质计量") ="平方"  Then
        'e.DataRow("xxx") = e.DataRow("长") * e.DataRow("宽")
        'ElseIf e.DataRow("材质计量") ="平方"  Then
        'e.DataRow("xxx") = e.DataRow("长") * e.DataRow("宽")
        '
    End If
End If