主题：计算税额

调整列的其中一个数值后值都发生变动计算数值，请老师帮忙看下，修改下代码。谢谢！现有的程序税价合计变动后金额，税金，没有变化。税率只在输入数值时才变化，输入其他数值是不变的。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:计算税额.table

需要计算的时候加上计算的代码，如

 

    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

谢谢老师

金额（不含税）/ 数量=单价（不含税） 25450.95/7.114 =3577.58644925  设置是保留7位小数，但显示是3位，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:计算税额.table

设置一下列属性

 

http://www.foxtable.com/webhelp/scr/0050.htm

 

列属性是是设置7位

显示的值还是不对，还是3位，3位后显示是0，3577.58644925   显示 3577.5860000  

 

重新计算一次即可。