看了程版提供的第二个例了，我引伸思路换了种方式，用e.Table.BottomVisibleRow 代替了e.Table.grid.ScrollPosition，
这种方法的好处在于调整行高不会影响合计显示。
'Dim py As Integer = e.Table.grid.ScrollPosition.y
'Dim gh As Double = e.Table.grid.height
'py = (-py + gh) / 20 - 2
Dim py As Integer = e.Table.BottomVisibleRow
If e.Row.Index = py Then
e.Style = "样式1"
Select Case e.Col.Name
Case "语文"
e.Text = e.Table.Aggregate(AggregateEnum.Sum, 0, e.Col.Index, e.Table.Rows.Count - 1, e.Col.Index)
Case "数学"
e.Text = e.Table.Aggregate(AggregateEnum.Sum, 0, e.Col.Index, e.Table.Rows.Count - 1, e.Col.Index)
Case Else
e.Text = "待定" & py
End Select
End If
现在遇到了部分问题，见截图。求大能再优化下
此主题相关图片如下：eeeeeee.gif
加好友 
发短信
Post By：2013/11/4 10:23:00 [只看该作者]
