主题：求教：如何让数据不点击 重置 菜单按钮就生成？

 呃，看了下，你的代码是不是应该这样写？

 如果，你的金额列是表达式列的话，还需要看这里 http://www.foxtable.com/help/topics/2381.htm

Dim dt As DataRow = e.DataRow
Select Case e.DataCol.name
    Case "金额"

        dt("大写金额") = EUMoney(dt("合计金额"))
        Dim Su As Double = Tables("订单产品").Compute("Sum(金额)","[合同号] = '" & dt("合同号") & "'")        
        dt("合计金额") = Su

End Select

 看了一下，你的 合计金额列 是表达式？， 金额列 也是表达式？

 所以代码应该这样写

Dim je As DataRow = e.DataRow
Select Case e.DataCol.name
    Case "数量","单价"
        je("英文货币") = EUMoney(je("金额"))

        Dim fdr As Datarow = je.GetParentRow("订单")

        If fdr isnot Nothing Then
            fdr("大写金额") = EUMoney(fdt("合计金额"))        
        End If
End Select

 没有表达式？那就这样写

Dim je As DataRow = e.DataRow
Select Case e.DataCol.name
    Case "数量","单价","金额"

        je("金额") = je("数量") * je("单价")
        je("英文货币") = EUMoney(je("金额"))       

        Dim fdr As Datarow = je.GetParentRow("订单")

        If fdr isnot Nothing Then
             Dim Su As Double = Tables("订单产品").Compute("Sum(金额)","[合同号] = '" & fdr("合同号") & "'")                        

             fdr("合计金额") = Su 
             fdr("大写金额") = EUMoney(fdr("合计金额"))
        End If
End Select