datagrid合并行内单元格后如何交替变色,小弟在线急等!!!
jgqr 2008-07-04 10:01:34 小弟最近写了个程序,其中的查询界面要求同一人的几行记录合并,不同人的记录之间交替变色,合并的函数已写完,如下:
Private Sub Unite(ByVal dgr As DataGrid)
Dim i As Integer
Dim LastType As String
Dim LastCell As Integer
If dgr.Items.Count > 0 Then
LastType = dgr.Items(0).Cells(0).Text
dgr.Items(0).Cells(0).RowSpan = 1
LastCell = 0
j = 0
For i = 1 To dgr.Items.Count - 1
If dgr.Items(i).Cells(0).Text = LastType Then
dgr.Items(i).Cells(0).Visible = False
dgr.Items(LastCell).Cells(0).RowSpan += 1
Else
LastType = dgr.Items(i).Cells(0).Text
LastCell = i
dgr.Items(i).Cells(0).RowSpan = 1
End If
Next
End If
End Sub
现求函数改动能完成交替变色的功能。
请写出详细代码,小弟在此拜谢!!!