以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不会计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150047)
--  作者：nbsugu_z
--  发布时间：2020/5/19 14:35:00
--  不会计算
Select Case e.DataCol.Name
    Case "bz1"
        
        If e.DataRow("bz1")="1"
            Dim Filter As String = "[bz1] = \'1\' and  [yy] = \'" & e.DataRow("yy") & "\'and [yy1] = \'" & e.DataRow("yy1") & "\'                                "
            If Filter IsNot Nothing Then
                e.DataRow("gtds") = DataTables("wy_cpd").Compute("Sum(jsds)", Filter)
            End If
        ElseIf e.DataRow("bz1")="2"
            Dim Filter As String = "[bz1] = \'2\'and  [yy] = \'" & e.DataRow("yy") & "\'and [yy1] = \'" & e.DataRow("yy1") & "\'                                "
            If Filter IsNot Nothing Then
                e.DataRow("gtds") = DataTables("wy_cpd").Compute("Sum(jsds)", Filter)
            End If
        ElseIf  e.DataRow("bz1")="3"
            
            Dim Filter As String = "[bz2] = \'3\'and  [yy] = \'" & e.DataRow("yy") & "\'and [yy1] = \'" & e.DataRow("yy1") & "\'                                "
            If Filter IsNot Nothing Then
                e.DataRow("gtds") = DataTables("wy_cpd").Compute("Sum(jsds)", Filter)
            End If
            
        ElseIf  e.DataRow("bz1")="4"
            
            Dim Filter As String = "[bz2] = \'4\'and  [yy] = \'" & e.DataRow("yy") & "\'and [yy1] = \'" & e.DataRow("yy1") & "\'                                "
            If Filter IsNot Nothing Then
                e.DataRow("gtds") = DataTables("wy_cpd").Compute("Sum(jsds)", Filter)
            End If
        ElseIf  e.DataRow("bz1")="5"
            Dim Filter As String = "[bz2] = \'5\'and  [yy] = \'" & e.DataRow("yy") & "\'and [yy1] = \'" & e.DataRow("yy1") & "\'                                "
            If Filter IsNot Nothing Then
                e.DataRow("gtds") = DataTables("wy_cpd").Compute("Sum(jsds)", Filter)
            End If
            
        ElseIf e.DataRow("bz1")="6"
            
            Dim Filter As String = "[bz2] = \'6\'and  [yy] = \'" & e.DataRow("yy") & "\'and [yy1] = \'" & e.DataRow("yy1") & "\'                                "
            If Filter IsNot Nothing Then
                e.DataRow("gtds") = DataTables("wy_cpd").Compute("Sum(jsds)", Filter)
            End If
        End If
End Select


wy_cpd表中都bz1、bz2  wy_gt表中有bz1    为什么到bz1=5和6时不会执行计算，其他都可以的
--  作者：nbsugu_z
--  发布时间：2020/5/19 14:53:00
--  
可以了，升级到5月18日版本 实然可以了。说明原来软件有问题啊