共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：如何获取最大值
1楼
老有所乐 发表于：2008/11/2 13:04:002楼
lxl 发表于：2008/11/2 13:22:00计算代码
Dim m As Integer = e.DataRow("A")
m = Math.Max(m, e.DataRow("B"))
m = Math.Max(m, e.DataRow("C"))
m = Math.Max(m, e.DataRow("D"))
e.DataRow("最大值") = m
[此贴子已经被作者于2008-11-2 13:23:36编辑过]
3楼
老有所乐 发表于：2008/11/2 13:32:00解答速度真快，谢谢lxl版主！
4楼
老有所乐 发表于：2008/11/3 21:00:00If e.Col.IsNumeric AndAlso e.Col.Name <> "平均分" and e.Col.Name <> "最大值" and e.Col.Name <> "最小值" Then
dim zxz AS double = e.row("最小值")
dim zdz AS double = e.row("最大值")
If e.Row.IsNull(e.Col.Name) = False
If e.Row(e.Col.Name) = zxz Then
e.Style = "最小值"
ElseIf e.Row(e.Col.Name) = zdz Then
e.Style = "最大值"
End If
End If
End
以上公式是给最大值和最小值标识颜色，但是多个相同的最大值和最小值他都会标识颜色，而有多个最大值和最小值时我只想标识其中的各一个，公式该如何修改。谢谢！
dim zxz AS double = e.row("最小值")
dim zdz AS double = e.row("最大值")
If e.Row.IsNull(e.Col.Name) = False
If e.Row(e.Col.Name) = zxz Then
e.Style = "最小值"
ElseIf e.Row(e.Col.Name) = zdz Then
e.Style = "最大值"
End If
End If
End
以上公式是给最大值和最小值标识颜色，但是多个相同的最大值和最小值他都会标识颜色，而有多个最大值和最小值时我只想标识其中的各一个，公式该如何修改。谢谢！
5楼
狐狸爸爸 发表于：2008/11/4 10:24:00呵呵，这个我都没有办法。
6楼
老有所乐 发表于：2008/11/4 11:53:00贺老师，如果没办法，就不用颜色显示，想用增加一列“最大值列”，在列中显示第一个最大值列的列名，是否可以，如可以其公式如何写？谢谢！
7楼
狐狸爸爸 发表于：2008/11/4 12:25:00Dim maxName As string = "A"
Dim maxValue As Integer = e.DataRow("A")
Dim Names() As String = {"B","C","D"}
For Each Name As string In Names
If e.Datarow(name) > maxValue Then
maxName = name
maxValue = e.DataRow(name)
End If
Next
e.DataRow("最大值") = maxName
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目15.table |
8楼
don 发表于：2008/11/4 12:26:00如判斷"A","B","C","D"列,配合Lxl版主的代碼,在DatacolChanged設置:
If "ABCD".IndexOf(e.DataCol.Name) > -1 Then
e.DataTable.DataCols("最大值").Recalc(e.DataRow)
Dim js As String() = {"A","B","C","D"}
For i As byte = 0 to js.length-1
If e.DataRow(js(i)) = Nothing Then
e.DataRow("最大值列") = Nothing
Else if e.DataRow(js(i)) = e.DataRow("最大值") Then
e.DataRow("最大值列") = js(i)
Exit For
End If
Next
End If
If "ABCD".IndexOf(e.DataCol.Name) > -1 Then
e.DataTable.DataCols("最大值").Recalc(e.DataRow)
Dim js As String() = {"A","B","C","D"}
For i As byte = 0 to js.length-1
If e.DataRow(js(i)) = Nothing Then
e.DataRow("最大值列") = Nothing
Else if e.DataRow(js(i)) = e.DataRow("最大值") Then
e.DataRow("最大值列") = js(i)
Exit For
End If
Next
End If
[此贴子已经被作者于2008-11-4 12:41:46编辑过]
共8 条记录, 每页显示 10 条, 页签:
[1]