- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 计算税额 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122438)
-- 发布时间：2018/7/25 15:49:00
-- 计算税额
调整列的其中一个数值后值都发生变动计算数值，请老师帮忙看下，修改下代码。谢谢！现有的程序税价合计变动后金额，税金，没有变化。税率只在输入数值时才变化，输入其他数值是不变的。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:计算税额.table |
-- 发布时间：2018/7/25 16:20:00
--
需要计算的时候加上计算的代码，如
Case "价税合计"
SystemReady = False
If e.DataRow.isnull("价税合计") = False Then
If e.DataRow.IsNull("单价") Then
If e.DataRow.IsNull("数量") = False Then
e.DataRow("单价") = e.DataRow("价税合计") / e.DataRow("数量")
End If
ElseIf e.DataRow.isnull("数量") Then
If e.DataRow.IsNull("单价") = False Then
e.DataRow("数量") = e.DataRow("价税合计") / e.DataRow("单价")
End If
Else
If e.DataRow.IsNull("数量") = False Then
e.DataRow("单价") = e.DataRow("价税合计") / e.DataRow("数量")
End If
End If
e.DataRow("金额") = e.DataRow("价税合计") / (1+e.DataRow("税率"))
e.DataRow("税金") = e.DataRow("价税合计") - e.DataRow("金额")
End If
SystemReady = True
-- 发布时间：2018/7/25 17:09:00
--
谢谢老师
-- 发布时间：2018/7/26 13:00:00
--
金额（不含税）/ 数量=单价（不含税） 25450.95/7.114 =3577.58644925 设置是保留7位小数，但显示是3位，
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:计算税额.table |
-- 发布时间：2018/7/26 14:48:00
--
设置一下列属性
http://www.foxtable.com/webhelp/scr/0050.htm
-- 发布时间：2018/7/26 15:52:00
--
列属性是是设置7位
-- 发布时间：2018/7/26 16:14:00
--
显示的值还是不对，还是3位，3位后显示是0，3577.58644925 显示 3577.5860000
-- 发布时间：2018/7/26 16:27:00
--
显示的值还是不对，还是3位，3位后显示是0，3577.58644925 显示 3577.5860000
重新计算一次即可。