以文本方式查看主题

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

--  作者:青丘狐
--  发布时间:2022/10/24 14:03:00
--  金额大写

入库明细为空也显示金额大写,有时入库明细有数值时不显示大写

 

Dim 金额_大写 As Double = Tables("入库明细").Compute("Sum(含税金额)")
e.Form.Controls("金额大写").value = CUMoney(金额_大写)

 


图片点击可在新窗口打开查看此主题相关图片如下:金额大写.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:金额大写1.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/10/24 14:12:00
--  
数据源没加载,或者用错表

Dim 金额_大写 As Double = Tables("入库明细").Compute("Sum(含税金额)")
msgbox(金额_大写)