Gridview headerText Not Showing

See more:

VB

My gridview contains Boundfield and Templatefield
and in Row databound when i am trying to change the header text on bound field and template ,
first time it shows nothing and then next time it does
Plz Help.....

My aspx

<asp:GridView ID="GrdQA" runat="server" AlternatingRowStyle-Wrap="false"
                                            AutoGenerateColumns="false" AllowPaging="false" PageSize="1000" AllowSorting="true">
                                            <Columns>
                                                <asp:BoundField DataField="SrNo" HeaderText="SrNo." ReadOnly="true" />
                                                <asp:BoundField DataField="Objective" HeaderText="Objectives" ReadOnly="true" />
                                                <asp:BoundField DataField="Unit" HeaderText="Unit" ReadOnly="true" />
                                                <asp:TemplateField HeaderText="Target" HeaderStyle-VerticalAlign="Middle" ItemStyle-VerticalAlign="Middle">
                                                    <ItemTemplate>
                                                        <asp:Label ID="lbltarget" runat="server" Text='<%#Eval("Target") %>'></asp:Label>
                                                    </ItemTemplate>
                                                    <EditItemTemplate>
                                                        <asp:TextBox ID="txttarget" runat="server" Text='<%#Eval("Target") %>'></asp:TextBox>
                                                    </EditItemTemplate>
                                                </asp:TemplateField>
                                                <asp:BoundField DataField="Frequency" HeaderText="Frequency" ReadOnly="true" />
                                                <asp:BoundField DataField="Month1" HeaderText="Month1" ReadOnly="true" />
                                                <asp:BoundField DataField="Month2" HeaderText="Month2" ReadOnly="true" />
                                                <asp:BoundField DataField="Month3" HeaderText="Month3" ReadOnly="true" />
                                                <asp:TemplateField HeaderText="Path" HeaderStyle-VerticalAlign="Middle" ItemStyle-HorizontalAlign="Center">
                                                    <ItemTemplate>
                                                        <asp:Image ID="Img1" runat="server" ImageUrl='<%#Eval("Path") %>' AlternateText="No Image" />
                                                    </ItemTemplate>
                                                    <EditItemTemplate>
                                                        <asp:Image ID="Img2" runat="server" ImageUrl='<%#Eval("Path") %>' AlternateText="No Image" />
                                                    </EditItemTemplate>
                                                </asp:TemplateField>
                                                <asp:TemplateField HeaderText="Action_Taken" HeaderStyle-VerticalAlign="Middle" ItemStyle-HorizontalAlign="Right">
                                                    <ItemTemplate>
                                                        <asp:Label ID="lblaction" runat="server" Text='<%#Eval("Action_Taken") %>'></asp:Label>
                                                    </ItemTemplate>
                                                    <EditItemTemplate>
                                                        <asp:TextBox ID="txtaction" runat="server" Text='<%#Eval("Action_Taken") %>'></asp:TextBox>
                                                    </EditItemTemplate>
                                                </asp:TemplateField>
                                            </Columns>
                                        </asp:GridView>

and rowdatabound event

If e.Row.RowType = DataControlRowType.Header Or e.Row.RowType = ListItemType.Header Or e.Row.RowType = DataControlRowType.EmptyDataRow Or e.Row.RowType = ListItemType.AlternatingItem Then
                For intCnt As Integer = 0 To GrdQA.Columns.Count - 1
                    If (GrdQA.Columns(intCnt).HeaderText = "Month1") Then
                        If (ddlquater.SelectedValue = 1) Then
                            GrdQA.Columns(intCnt).HeaderText = "Apr-" + lblfinyear.Text.Substring(2, 2)
                        ElseIf (ddlquater.SelectedValue = 2) Then
                            GrdQA.Columns(intCnt).HeaderText = "Jul-" + lblfinyear.Text.Substring(2, 2)
                        ElseIf (ddlquater.SelectedValue = 3) Then
                            GrdQA.Columns(intCnt).HeaderText = "Oct-" + lblfinyear.Text.Substring(2, 2)
                        ElseIf (ddlquater.SelectedValue = 4) Then
                            GrdQA.Columns(intCnt).HeaderText = "Jan-" + lblfinyear.Text.Substring(7, 2)
                        End If
                    ElseIf (GrdQA.Columns(intCnt).HeaderText = "Month2") Then
                        If (ddlquater.SelectedValue = 1) Then
                            GrdQA.Columns(intCnt).HeaderText = "May-" + lblfinyear.Text.Substring(2, 2)
                        ElseIf (ddlquater.SelectedValue = 2) Then
                            GrdQA.Columns(intCnt).HeaderText = "Aug-" + lblfinyear.Text.Substring(2, 2)
                        ElseIf (ddlquater.SelectedValue = 3) Then
                            GrdQA.Columns(intCnt).HeaderText = "Nov-" + lblfinyear.Text.Substring(2, 2)
                        ElseIf (ddlquater.SelectedValue = 4) Then
                            GrdQA.Columns(intCnt).HeaderText = "Feb-" + lblfinyear.Text.Substring(7, 2)
                        End If
                    ElseIf (GrdQA.Columns(intCnt).HeaderText = "Month3") Then
                        If (ddlquater.SelectedValue = 1) Then
                            GrdQA.Columns(intCnt).HeaderText = "Jun-" + lblfinyear.Text.Substring(2, 2)
                        ElseIf (ddlquater.SelectedValue = 2) Then
                            GrdQA.Columns(intCnt).HeaderText = "Sep-" + lblfinyear.Text.Substring(2, 2)
                        ElseIf (ddlquater.SelectedValue = 3) Then
                            GrdQA.Columns(intCnt).HeaderText = "Dec-" + lblfinyear.Text.Substring(2, 2)
                        ElseIf (ddlquater.SelectedValue = 4) Then
                            GrdQA.Columns(intCnt).HeaderText = "Mar-" + lblfinyear.Text.Substring(7, 2)
                        End If
                    End If
                Next
            End If