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

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

 如果，你的金额列是表达式列的话，还需要看这里 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