你好
我写的宽度和单元格内容的对齐方式为下面的代码，但我仍然坚持............

Dim gvShowIncome As New GridView

                            Dim ds As New Data.DataSet

                            gvNarration.Visible = False

                            lblNarration.Visible = False

                            gvIncome.Visible = False

                            lblNarr.Visible = False

                            Dim UserSelection As UserSelection = Nothing

                            Dim ParticularsName As String = ""

                            'Dim totalField As String = ""

                            Dim wherecondition As String

                            Dim name As String = ""

                            Dim stYYYYMM As String = ""

                            Dim enYYYYMM As String = ""

..................'some code is placed here

                            stYYYYMM = ViewState("stYYYYMM")

                            enYYYYMM = ViewState("enYYYYMM")

                            gvShowIncome.BorderColor = Black

                            gvShowIncome.Width = 847

                            gvShowIncome.HorizontalAlign = HorizontalAlign.Center

                            'gvShowIncome.Columns(0).ItemStyle.HorizontalAlign = HorizontalAlign.Left

                            'gvShowIncome.Columns(1).ItemStyle.HorizontalAlign = HorizontalAlign.Right

                            'gvShowIncome.RowStyle.HorizontalAlign = HorizontalAlign.Right

                            gvShowIncome.RowStyle.CssClass = "rpt_head1"

                            'gvShowIncome.HeaderStyle.Width = 310

                            'gvShowIncome.RowStyle.Width = 310

                            gvShowIncome.ShowHeader = False

                            'gvShowIncome.Rows.Item(2).Cells(2).Text = Format(Val(gvShowIncome.Rows.Item(2).Cells(2).Text), "#,0.00")

                            'gvShowIncome.Columns(0).ItemStyle.CssClass = "rpt_head1"

                            'gvShowIncome.Columns(1).ItemStyle.Width = 212

                            'gvShowIncome.Columns(2).ItemStyle.Width = 212

                            'gvShowIncome.Columns(3).ItemStyle.Width = 212

                            'gvShowIncome.Rows(4).Cells(3).HorizontalAlign = HorizontalAlign.Left

                            gvShowIncome.HeaderStyle.HorizontalAlign = HorizontalAlign.Right

                            'gvShowIncome.Columns.Item(2).ItemStyle.HorizontalAlign = HorizontalAlign.Left

                            gvShowIncome.RowStyle.CssClass = "rpt_item_value1"

                            gvShowIncome.RowStyle.MergeWith(gvMtdDetail.ControlStyle)

                            e.Row.Cells(1).Controls.Add(gvShowIncome)

                            ds = BindIncome(UserSelection, totalField, wherecondition, stYYYYMM, enYYYYMM, BRIN)

                            gvShowIncome.DataSource = ds

                            gvShowIncome.DataBind()

请帮助我。
谢谢....