[求助]如何求出同一列中相同特征的行的数量？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "LSH"
        If e.DataRow.IsNull("LSH") = False Then

            Dim n = DataTables("DAJG_SSJCYX").Compute("count([LSH])", "LSH = '" & e.DataRow("LSH") & "' and YEMA Like '%-%'")
            msgbox(n)

            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")

End Select

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