主题：[求助]如何求出同一列中相同特征的行的数量？

统计出表A“页码”列中，同一流水号下包含相同特征“-”行的数量。

就是统一同一流水号(如48615)下，页码列中有3个包含“-”字符的。我想得到这个“3”。

刷新表格DAJG_SSFZXX列“LSH”，运行如下代码，为什么系统会崩溃呢？如何解决？

   For Each nm As String In DataTables("DAJG_SSJCBM").GetValues("LSH")
            Dim dr As DataRow =  DataTables("DAJG_SSFZXX").AddNew()
            dr("LSH") = nm
            Dim n = DataTables("DAJG_SSJCYX").Compute("count([LSH])", "LSH = 'nm' and YEMA Like '%-%'")
            msgbox(n)
            If e.DataRow.IsNull("LSH") = False Then
                Dim Filter As String = "[LSH] = '" & e.DataRow("LSH") & "' and [JZLB] =  'Z'  "
                Dim maxCH As String = DataTables("DAJG_SSJCBM").compute("max(CH)", Filter)
                Dim maxP2 As String = DataTables("DAJG_SSJCBM").compute("max(P2)", filter)
                If maxCH = Nothing Then
                    e.DataRow("ZJCS") = 0
                    e.DataRow("ZJYS") = 0
                Else
                    e.DataRow("ZJCS") = maxCH
                    e.DataRow("ZJYS") = maxP2 +3 + n                    
                End If
                Dim FilterB As String = "[LSH] = '" & e.DataRow("LSH") & "' and [JZLB] =  'F'  "
                Dim maxCHB As String = DataTables("DAJG_SSJCBM").compute("max(CH)", FilterB)
                Dim maxP2B As String = DataTables("DAJG_SSJCBM").compute("max(P2)", filterB)
                If maxCHB = Nothing Then
                    e.DataRow("FJCS") = 0
                    e.DataRow("FJYS") = 0
                Else
                    e.DataRow("FJCS") = maxCHB
                    e.DataRow("FJYS") = maxP2B +3 + n                    

                End If
            End If
            Dim dr1 As DataRow = e.DataRow
            dr1("AJZCS") = dr1("ZJCS") + dr1("FJCS")
           
        Next

 

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

点击浏览该文件:ls.zip