以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  大写金额  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100307)

--  作者:zoyong
--  发布时间:2017/5/9 13:27:00
--  大写金额
原代码   写在datacolchanged中    
总金额为表达式     金额大写从总金额取值
只有点击重置列数据才有效,不会自动更新,求解

If e.DataCol.name = "总金额" then
    If e.DataRow.isnull("总金额") = False  then
        e.DataRow("金额大写") = CUMoney(e.DataRow("总金额"))
    Else
        e.DataRow("金额大写") = Nothing
    End If
End If

--  作者:有点色
--  发布时间:2017/5/9 14:13:00
--  

 表达式列,不会触发datacolchanged事件。

 

If e.DataCol.name = "数量" OrElse e.DataCol.Name = "单价" then
    If e.DataRow.isnull("总金额") = False  then
        e.DataRow("金额大写") = CUMoney(e.DataRow("总金额"))
    Else
        e.DataRow("金额大写") = Nothing
    End If
End If
 
如果你的总金额表达式是跨表计算的,你要写重置列代码