主题：[求助]数据统计公式求教~

Select e.DataCol.Name    '自动编号
    Case "姓名"
        If e.DataRow.IsNull("姓名") Then
            e.DataRow("序号") = Nothing
        Else
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(序号)","[_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
            If max > "" Then '如果存在最大编号
                idx = max + 1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("序号") = Format(idx,"00")
        End If
End Select

If e.DataCol.Name = "姓名" AndAlso e.DataRow.IsNull("姓名") = False Then
    Dim a,b,c As Double
    a =  DataTables("民主评议表").Compute("Count(德)", "[姓名]= '" & e.DataRow("姓名") & "' And [德] = '01优秀'")
    b =  DataTables("民主评议表").Compute("Count(德)", "[姓名]= '" & e.DataRow("姓名") & "'")
    c = iif(b=0, 0, a/b)
    e.DataRow("德_优秀")= c * 100
    a =  DataTables("民主评议表").Compute("Count(德)", "[姓名]= '" & e.DataRow("姓名") & "' And [德] = '02称职'")
    c = iif(b=0, 0, a/b)
    e.DataRow("德_称职")= c * 100
End If