主题：[求助]怎么有条件计算子表金额。

等你多看几次，熟悉了，就知道其实用狐表更容易的。

 

 

看4楼文件的税金明细表事件代码!!!

 

       曾经试过用判断“工程名称”列，但由于比较条件用到了“工程名称”列，有时候计算出的结果不对，可能是“DataColChanging事件触发时，列中的值还没有更改，还是原来的值”这个原因造成的，所以使用的序号列，在税金明细表设置了触发“序号”列事件代码来实现自动计算的。

用工程名称列进行判断，然后再重置列进行计算，是否可以？

 

我试过，当您在对统计表的工程名称列进行手动更改的时候，统计的数据很多时候不变（作为父表，这样的更改不应该，但作为用户，什么样的操作都有可能，所以改用序号列），研究半天，又觉得与帮助中的这一句话有关“DataColChanging事件触发时，列中的值还没有更改，还是原来的值”，看来并不是bug

还得请版主帮忙！应交税金表中的数据=应交税金计算表-已交税金统计表，怎样设计才能计算出结果？

 

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

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

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

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

谢谢，还有一点小问题，金额为0.00能否显示了空？

这样比较好：

 

If e.DataCol.Name = "工程名称" Then
    Dim dr As DataRow = e.DataRow
    Dim dr1 As DataRow = DataTables("应交税金计算表").Find("工程名称 = '" & dr("工程名称") & "'")
    Dim dr2 As DataRow = DataTables("已交税金统计表").Find("工程名称 = '" & dr("工程名称") & "'")
    Dim nms() As String = {"企业所得税","营业税","城建税","教育费附加","地方教育费附加","防洪保安费","印花税"}
    If dr1 isnot Nothing AndAlso dr2 isnot Nothing Then
        For Each nm As String In nms
            If dr1(nm) <> dr2(nm) Then
                dr(nm) = dr1(nm) - dr2(nm)
            Else
                dr(nm) = Nothing
            End If
        Next
    Next
End If

出现问题了。

此主题相关图片如下：foxtable.jpg