datagrid 合并单元格

做报表时经常要对数据的显示进行调整，而且老板的要求经常会很古怪。先前一直用C# 做，现在用下vb,很久没有接触，都不怎么熟悉了

下面代码因为赶时间，有空稍微注释一下

 1 Private Sub CellSpan()Sub CellSpan()
 2        Dim supplier As String
 3        Dim cost As Decimal
 4        Dim totalCost As Decimal
 5        Dim jobNum As Integer
 6        Dim rowIndex As Integer
 7        Dim i As Integer
 8
 9        If dgSupplierJob.Items.Count > 0 Then
            supplier = dgSupplierJob.Items(0).Cells(0).Text
            dgSupplierJob.Items(0).Cells(0).RowSpan = 1
            dgSupplierJob.Items(0).Cells(1).RowSpan = 1
            dgSupplierJob.Items(0).Cells(2).RowSpan = 1

            rowIndex = 0
            jobNum = 1
            totalCost = CDec(dgSupplierJob.Items(0).Cells(2).Text)

            For i = 1 To dgSupplierJob.Items.Count - 1
                If dgSupplierJob.Items(i).Cells(0).Text = supplier Then
                    totalCost = totalCost + CDec(dgSupplierJob.Items(i).Cells(2).Text)
                    jobNum = jobNum + 1

                    dgSupplierJob.Items(i).Cells(0).Visible = False
                    dgSupplierJob.Items(i).Cells(1).Visible = False
                    dgSupplierJob.Items(i).Cells(2).Visible = False

                    dgSupplierJob.Items(rowIndex).Cells(0).RowSpan = dgSupplierJob.Items(rowIndex).Cells(0).RowSpan + 1
                    dgSupplierJob.Items(rowIndex).Cells(1).RowSpan = dgSupplierJob.Items(rowIndex).Cells(1).RowSpan + 1
                    dgSupplierJob.Items(rowIndex).Cells(2).RowSpan = dgSupplierJob.Items(rowIndex).Cells(2).RowSpan + 1

                Else
                    supplier = dgSupplierJob.Items(i).Cells(0).Text

                    dgSupplierJob.Items(i - jobNum).Cells(1).Text = jobNum.ToString()
                    dgSupplierJob.Items(i - jobNum).Cells(2).Text = totalCost.ToString()

                    totalCost = CDec(dgSupplierJob.Items(i).Cells(2).Text)

                    jobNum = 1

                    dgSupplierJob.Items(i).Cells(0).RowSpan = 1
                    dgSupplierJob.Items(i).Cells(1).RowSpan = 1
                    dgSupplierJob.Items(i).Cells(2).RowSpan = 1

                    rowIndex = i

                End If
            Next
        End If
    End Sub