سلوك غير متعارف عليه تقوم به الـ GridControl

كود :
 Dim ds As New DataSet

 Dim dt As DataTable = DataSet1.Tables(0).Clone()

 Dim SERIAL_NO As Integer



 Dim languages_table As New DataTable

 Dim QUALIFICATION_TABLE As New DataTable

 Dim REFRESH_TABLE As New DataTable

 Dim PUNISHMENT_TABLE As New DataTable

 Dim SIGN_TABLE As New DataTable





  For i As Integer = 0 To GridView1.DataRowCount - 1



            dt.ImportRow(GridView1.GetDataRow(i))

            SERIAL_NO = Convert.ToInt32(GridView1.GetDataRow(i).Item("SERIAL_NO"))





            da.SelectCommand.Parameters.Clear()

            da.SelectCommand.Parameters.Add("@SERIAL_NO", FbDbType.Integer).Value = SERIAL_NO  



            Try

                da.Fill(languages_table)

            Catch ex As Exception

                MsgBox(ex.Message)

            Finally



            End Try



            da2.SelectCommand.Parameters.Clear()

            da2.SelectCommand.Parameters.Add("@SERIAL_NO", FbDbType.Integer).Value = SERIAL_NO  

            Try

                da2.Fill(QUALIFICATION_TABLE)

            Catch ex As Exception

                MsgBox(ex.Message)

            Finally



            End Try



            da3.SelectCommand.Parameters.Clear()

            da3.SelectCommand.Parameters.Add("@SERIAL_NO", FbDbType.Integer).Value = SERIAL_NO  

            Try

                da3.Fill(REFRESH_TABLE)

            Catch ex As Exception

                MsgBox(ex.Message)

            Finally



            End Try



            da4.SelectCommand.Parameters.Clear()

            da4.SelectCommand.Parameters.Add("@SERIAL_NO", FbDbType.Integer).Value = SERIAL_NO  

            Try

                da4.Fill(PUNISHMENT_TABLE)

            Catch ex As Exception

                MsgBox(ex.Message)

            Finally



            End Try





 Next



        ds.Tables.Add(dt)

        ds.Tables.Add(languages_table)

        ds.Tables.Add(QUALIFICATION_TABLE)

        ds.Tables.Add(REFRESH_TABLE)

        ds.Tables.Add(PUNISHMENT_TABLE)

        ds.Tables.Add(SIGN_TABLE)



        ds.Relations.Clear()

        ds.Relations.Add("Relation1", dt.Columns("SERIAL_NO"), languages_table.Columns("SERIAL_NO"))

        ds.Relations.Add("Relation2", dt.Columns("SERIAL_NO"), QUALIFICATION_TABLE.Columns("SERIAL_NO"))

        ds.Relations.Add("Relation3", dt.Columns("SERIAL_NO"), REFRESH_TABLE.Columns("SERIAL_NO"))

        ds.Relations.Add("Relation4", dt.Columns("SERIAL_NO"), PUNISHMENT_TABLE.Columns("SERIAL_NO"))

        ds.Relations.Add("Relation5", dt.Columns("SERIAL_NO"), SIGN_TABLE.Columns("SERIAL_NO"))