主题：最大值问题

请教老师，如何从合计列挑选出最大值，并把该行对应的项目名称填入到最后一列

 

 

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

点击浏览该文件:管理项目15.table

Dim dtr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "A","B","C","D"
       
        Dim Names() As  String = {"A","B","C","D"}
        Dim maxname As String
        Dim maxvalue As Double = 0
        For Each Name As String In Names
            If e.DataRow(name) > maxValue Then
                maxName = name
                maxValue = e.DataRow(name)
            End If
        Next
        If maxname > "" Then
            e.DataRow("最大值") = maxvalue
            e.DataRow("合计最大值项目名称") = maxName
        Else
            e.DataRow("最大值") = Nothing
            e.DataRow("合计最大值项目名称") = Nothing
        End If
       
        dtr("合计") = dtr("A") + dtr("B") + dtr("C") + dtr("D")
End Select

谢谢老师指导，可能是我表达有误，合计最大值项目名称的列，填入的不是当前行最大值的列名，而是合计列中最大值对应行的项目名称，谢谢

 

项目名称     A        B         C        D        合计          合计最大值项目名称

AA             1        2         3        4          10

BB             1        2         3        5          11                    BB

CC             1        2         3        3           9

 

用这段代码可以实现，怎样合并到老师指导的代码中

For Each r As Row In Tables("表A").Rows
Dim Total As String
Total = DataTables("表A").Compute("Max(合计)")
    If r("合计") = Total Then
        r("合计最大值项目名称") = e.DataRow("项目名称")
    Else
        r("合计最大值项目名称") = Nothing
    End If
Next

Dim dtr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "A","B","C","D"
       
        Dim Names() As  String = {"A","B","C","D"}
        Dim maxname As String
        Dim maxvalue As Double = 0
        For Each Name As String In Names
            If e.DataRow(name) > maxValue Then
                maxName = name
                maxValue = e.DataRow(name)
            End If
        Next
        If maxname > "" Then
            e.DataRow("最大值") = maxName
        Else
            e.DataRow("最大值") = Nothing
        End If
       
        dtr("合计") = dtr("A") + dtr("B") + dtr("C") + dtr("D")
    Case "合计"
        Dim fdr As DataRow = e.DataTable.Find("", "合计 desc")
        e.DataTable.ReplaceFor("合计最大值项目名称", fdr("项目名称"))
End Select