سؤال عند تغير ستايل داتا قريد

عند كتابة برنامج

وبعد ان كان تمام احببت توسيع كولوم حقت داتا قريد ..

غيرت الاستايل حق داتا قريد

لكن المشكلة لدي ان عندما غيرت الاستايل

وانا نفس داتا قريد اسويلها رف رش(رف رش تتم عندما اختار في الماوس من داتا قريد رقم 1 يروح مغير داتا قريد رقم 2 اللي عندي على اساسها ) المفروض يغير البيانات اللي داخل الداتا قريد رقم 2

لكن للاسف تبقى البيانات زي ماهي

على اول اختيار اخترته

وسبب ما ادري

#Region "Binding Data Grids GROUP_SCHEDULE  "

    Sub BindDG2()

        Try
            ' You must clear out the TableStyles collection before 
            GROUP_SCHEDULE.TableStyles.Clear()

            Dim grdTableStyle1 As New DataGridTableStyle
            With grdTableStyle1
                .MappingName = DG2.Tables(0).TableName
            End With


            Dim grdColStyle1 As New DataGridTextBoxColumn
            With grdColStyle1
                .MappingName = "     "
                .HeaderText = "     "
                .Width = 75
                .NullText = String.Empty
            End With

            Dim grdColStyle2 As New DataGridTextBoxColumn
            With grdColStyle2
                .MappingName = "8_9"
                .HeaderText = "8_9"
                .Width = 90
                .NullText = String.Empty
            End With

            Dim grdColStyle3 As New DataGridTextBoxColumn
            With grdColStyle3
                .MappingName = "9_10"
                .HeaderText = "9_10"
                .Width = 90
                .NullText = String.Empty
            End With


            Dim grdColStyle4 As New DataGridTextBoxColumn
            With grdColStyle4
                .MappingName = "10_11"
                .HeaderText = "10_11"
                .Width = 90
                .NullText = String.Empty
            End With

            Dim grdColStyle5 As New DataGridTextBoxColumn
            With grdColStyle5
                .MappingName = "11_12"
                .HeaderText = "11_12"
                .Width = 90
                .NullText = String.Empty
            End With

            Dim grdColStyle6 As New DataGridTextBoxColumn
            With grdColStyle6
                .MappingName = "12_1"
                .HeaderText = "12_1"
                .Width = 90
                .NullText = String.Empty
            End With

            Dim grdColStyle7 As New DataGridTextBoxColumn
            With grdColStyle7
                .MappingName = "1_2"
                .HeaderText = "1_2"
                .Width = 90
                .NullText = String.Empty
            End With

            Dim grdColStyle8 As New DataGridTextBoxColumn
            With grdColStyle8
                .MappingName = "2_3"
                .HeaderText = "2_3"
                .Width = 90
                .NullText = String.Empty
            End With


            Dim grdColStyle9 As New DataGridTextBoxColumn
            With grdColStyle9
                .MappingName = "3_4"
                .HeaderText = "3_4"
                .Width = 90
                .NullText = String.Empty
            End With


            Dim grdColStyle10 As New DataGridTextBoxColumn
            With grdColStyle10
                .MappingName = "4_5"
                .HeaderText = "4_5"
                .Width = 90
                .NullText = String.Empty
            End With

            grdTableStyle1.GridColumnStyles.AddRange _
                (New DataGridColumnStyle() {grdColStyle1, grdColStyle2, grdColStyle3, grdColStyle4, grdColStyle5, grdColStyle6, grdColStyle7, grdColStyle8, grdColStyle9, grdColStyle10})
            GROUP_SCHEDULE.TableStyles.Add(grdTableStyle1)

        Catch ex As Exception
            Throw ex
        End Try

    End Sub

#End Region

كود سابق كود الاستايل جديد

  DG2.Clear()
        DG2.Tables.Add(dt)
        BindDG2()
        GROUP_SCHEDULE.DataSource = DG2
        GROUP_SCHEDULE.DataMember = DG2.Tables(0).TableName
        DG2.Tables.Clear()

كود السابق لاتعبئة داتا قريد بالاستايل جديد

DG2.Tables.Clear()

حطيتها عشان يمسح بيانات اللي قبل ويكتب الجديده

بس للاسف ما يكتب الجديده

وش سبب ياترى :wacko: