Do While (i < numCols)

                    aColumnTextColumn = New DataGridColoredTextBoxColumn()

                    Dim rowindex As Integer = 0

                    For rowindex = 0 To dt.Rows.Count - 1

                        Dim StrSel As String

                        Dim MyForeCorol, MyBackCorol As Color

                        aColumnTextColumn.rowcollection.Add(rowindex)

                        If rowindex = CurrentRowindex Then

                                MyForeCorol = Color.White

                                MyBackCorol = Color.DarkSlateBlue

                        else

                                MyForeCorol = Color.DarkSlateBlue

                                MyBackCorol = Color.White

                        End If

                        ReDim Preserve aColumnTextColumn.ForeColor(aColumnTextColumn.rowcollection.Count)

                        ReDim Preserve aColumnTextColumn.BackColor(aColumnTextColumn.rowcollection.Count)

                        aColumnTextColumn.ForeColor(rowindex) = MyForeCorol

                        aColumnTextColumn.BackColor(rowindex) = MyBackCorol

                    Next

                    ''''要更改列头名，请改下句的HeaderText值

                    aColumnTextColumn.HeaderText = dt.Columns(i).ColumnName

                    aColumnTextColumn.MappingName = dt.Columns(i).ColumnName

                    ts.GridColumnStyles.Add(aColumnTextColumn)

                    i = (i + 1)

                Loop

                DG.TableStyles.Add(ts)

            End Sub

        End Class

    End Class

End Namespace

上一页  [1] [2] [3] [4]  下一页