主题：[求助]表内自动夸行运算

1、加一列 父卷号，根据父卷号得出卷号和计算对应的投料重量；

 

2、你说的产量比例是什么东西，请你具体做一个例子发上来说明怎么操作，最后要什么效果

加一列 父卷号，根据父卷号计算对应的投料重量

 取出父卷的1000，根据当行的490，统计同一父卷号的两个490，从而计算得出值。

 

 你可以做一个按钮，输入产出重量和父卷号以后，计算得出值

 说多没用，发个例子上来，弄点数据，说明填入什么以后，点按钮得到什么结果

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

'返回母卷重
If e.DataCol.Name = "母卷号" OrElse e.DataCol.Name = "库存标记" Then
    If e.DataRow("库存标记")=True Then
        Dim dr As DataRow
        dr=DataTables("原料入库").Find("母卷号= '" & e.DataRow("母卷号") & "'" )
        If dr IsNot Nothing Then '如果找到了同名的工序匹配码行,也就是dr不是Nothing
            e.DataRow("母卷重量") = dr("重量")
        End If
    Else
        e.DataRow("母卷重量")=Nothing
    End If
   
    '返回分卷总重
    If e.DataRow("库存标记")=True Then
        Dim Sum As Double
        Sum = Tables("轧机1号").Compute("Sum(产出量)", "母卷号 = '" & e.DataRow("母卷号") & "'  And 库存标记=True")'这一行不会写,请高手帮忙
        e.DataRow("分卷总重")=sum
    Else
        e.DataRow("分卷总重")=Nothing
    End If
End If

If e.DataCol.Name = "母卷号" OrElse e.DataCol.Name = "库存标记" Then
    '返回母卷重
    If e.DataRow("库存标记")=True Then
        Dim dr As DataRow
        dr=DataTables("原料入库").Find("母卷号= '" & e.DataRow("母卷号") & "'" )
        If dr IsNot Nothing Then '如果找到了同名的工序匹配码行,也就是dr不是Nothing
            e.DataRow("母卷重量") = dr("重量")
        End If
    Else e.DataRow("母卷重量")=Nothing
    End If
   
   
    '返回分卷总重
    If e.DataRow("库存标记")=True Then
        Dim Sum As Double
        Sum = Tables("轧机1号").Compute("Sum(产出量)", "母卷号 = '" & e.DataRow("母卷号") & "'  And 库存标记=True")
        e.DataRow("分卷总重")=sum
    Else
        e.DataRow("分卷总重")=Nothing
    End If
Else If e.DataCol.Name = "产出量" Then
    e.DataTable.DataCols("分卷总重").RaiseDataColChanged("母卷号 = '" & e.DataRow("母卷号") & "' And 库存标记=True ")
Else If e.DataCol.Name = "分卷总重" Then
    Dim Sum As Double
    Sum = Tables("轧机1号").Compute("Sum(产出量)", "母卷号 = '" & e.DataRow("母卷号") & "'  And 库存标记=True")
    e.DataRow("分卷总重")=sum
End If

e.DataRow("投料量")=e.DataRow("母卷重量")*e.DataRow("产出量")/e.DataRow("分卷总重")

1、判断列名，如果修改的是产出量，就重置列分卷总重；

 

2、如果修改了分卷总重，就计算产出量的总和。

 照抄代码就不可能全部重置。

 dr=DataTables("原料入库").Find("母卷号= '" & e.DataRow("母卷号") & "' And 库存标记 = True"  )