Datagrid 的格式化[2]

    Do While (i < numCols) '重绘所有的列
            aColumnTextColumn = New DataGridColoredTextBoxColumn
            j = 0
            If S_count > 0 Then
                For j = 0 To StopDe.Length - 1
                    aColumnTextColumn.rowcollection.Add(StopDe(j))
                    ReDim Preserve aColumnTextColumn.ForeColor(aColumnTextColumn.rowcollection.Count)
                    ReDim Preserve aColumnTextColumn.BackColor(aColumnTextColumn.rowcollection.Count)
                    aColumnTextColumn.ForeColor(j) = Color.Gray
                    aColumnTextColumn.BackColor(j) = Color.White
                Next
            End If
            If E_count > 0 Then
                For m = 0 To EndDe.Length - 1
                    aColumnTextColumn.rowcollection.Add(EndDe(m))
                    ReDim Preserve aColumnTextColumn.ForeColor(aColumnTextColumn.rowcollection.Count)
                    ReDim Preserve aColumnTextColumn.BackColor(aColumnTextColumn.rowcollection.Count)
                    aColumnTextColumn.ForeColor(j) = Color.Red
                    aColumnTextColumn.BackColor(j) = Color.White
                    j = j + 1
                Next
            End If
            aColumnTextColumn.HeaderText = dvd.Table.Columns(i).ColumnName
            aColumnTextColumn.MappingName = dvd.Table.Columns(i).ColumnName
            aColumnTextColumn.Alignment = HorizontalAlignment.Center
            ts.GridColumnStyles.Add(aColumnTextColumn)
            i = (i + 1)
        Loop
        Me.DgdDelegaInfo.TableStyles.Clear()
        Me.DgdDelegaInfo.TableStyles.Add(ts) 'datagrid