[عاشق الرسول]

السلام  عليكم ورحمة الله وبركاته
عندي داتا جريد فيو أقوم بتعبئتها من قاعدة بيانات اكسس وأقوم بإضافة أعمدة أخرى إليها لإدخال البيانات بها ومن ثم حفظها في جدول آخر
المشكلة أنه بعد الاستدعاء أقوم بالبحث يختلف ترتيب الاعمدة

كود :

Public Sub setg()
       ' SELECT T1.id, T1.number, T1.datenow, T2.number, T2.datenow FROM T1, T2;

       Dim da As New OleDb.OleDbDataAdapter("select STU_ID,RELA,STU_NAM,STU_MOB,STU_GEND.STU_GRAD from STU_TBL ", con)
       con.Open()
       Dim ds As New DataSet
       da.Fill(ds, "STU_TBL")

       DGV_BILL.DataSource = ds.Tables("STU_TBL")

       ''''''''''''''''''''''''''''''''''''''''''''''''''''''
       DGV_BILL.Columns(0).Visible = False
       '''''''''''''''''''''''''''''''''''''''''''''
       DGV_BILL.Columns("STU_ID").HeaderText = "كود الطالب"
       DGV_BILL.Columns("STU_ID").Width = 80
        ''''''''''''''''''''''''''''''''''''''''''''''''
       DGV_BILL.Columns(6).HeaderText = "العلاقة"
       DGV_BILL.Columns(6).Width = 80

       DGV_BILL.Columns(7).HeaderText = "اسم الطالب"
       DGV_BILL.Columns(7).Width = 200
       '''''''''''''''''''''

       DGV_BILL.Columns(8).HeaderText = "المحمول"
       DGV_BILL.Columns(8).Width = 100

       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       DGV_BILL.Columns(9).HeaderText = "الجنس"
       DGV_BILL.Columns(9).Width = 100
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       DGV_BILL.Columns(10).HeaderText = " الصف"
       DGV_BILL.Columns(10).Width = 80

       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       ' إضافة كومبو بوكس وتعبئته من جدول
       Dim cmb As New DataGridViewComboBoxColumn()
       cmb.HeaderText = "المادة"
       cmb.Name = "SUBJ"
       DGV_BILL.Columns.Add(cmb)
       Using cmd As New OleDb.OleDbCommand("Select * from SUB_TBL", con)
           Using dreader As OleDb.OleDbDataReader = cmd.ExecuteReader
               SUB_Table.Clear()
               SUB_Table.Load(dreader)
               ' Fill Grid Combo
               For i As Integer = 0 To SUB_Table.Rows.Count - 1
                   cmb.Items.Add(SUB_Table(i)(1))
               Next
           End Using
       End Using
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       'إدراج كومبوبوكس إلى الداتا جريد وتعبئته بدون قاعدة بيانات
       Dim COMBO1 As DataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
       COMBO1.Name = "CORS"
       COMBO1.HeaderText = "المدة"
       COMBO1.Width = 80
       COMBO1.Items.Add("مادة")
       COMBO1.Items.Add("دورة")
       COMBO1.Items.Add("شهري")
       DGV_BILL.Columns.Insert(12, COMBO1)

       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       'إدراج دات تيم بيكر في الداتا جريد وذلك بعد إضافة ملف إلى الرفرانس
       Dim SCORS As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
       SCORS.Name = "CORS"
       SCORS.HeaderText = "البداية"
       SCORS.Width = 100

       DGV_BILL.Columns.Insert(13, SCORS)
       ' DGV_BILL.Columns.Add("S_CORS", ("البداية"))
       'CellDateTimePicker.DTP.Date_TimePicker(DGV_BILL, 13, "")
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       DGV_BILL.Columns.Add("E_CORS", ("النهاية"))
       'CellDateTimePicker.DTP.Date_TimePicker(DGV_N_BILL, 8, "")
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       'إضافة شيك بوكس للداتا جريد
       Dim checkBoxColumn As DataGridViewCheckBoxColumn = New DataGridViewCheckBoxColumn()
       checkBoxColumn.HeaderText = "أنهى الدورة"
       checkBoxColumn.Width = 100
       checkBoxColumn.Name = "E_STAT"
       DGV_BILL.Columns.Insert(15, checkBoxColumn)
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       'إدراج كومبوبوكس إلى الداتا جريد وتعبئته بدون قاعدة بيانات
       Dim COMBO2 As DataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
       COMBO2.Name = ("S_G")
       COMBO2.HeaderText = "نوع الدراسة"
       COMBO2.Width = 80
       COMBO2.Items.Add("فردي")
       COMBO2.Items.Add("جماعي")
       DGV_BILL.Columns.Insert(16, COMBO2)
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       DGV_BILL.Columns.Add("COST", ("التكلفة"))

       con.Close()
   End Sub

وهذا كود التعبة مع إضافة أعمدة برمجيا
ولكن مع البحث يختل الترتيب
وهذا هو كود البحث

كود :

   Private Sub CMP_FATH_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CMP_FATH.SelectedIndexChanged

       Dim dr As OleDb.OleDbDataReader
       Dim cmd As New OleDb.OleDbCommand("select FATH_COD,FATH_MOB1,FATH_MOB2 from STU_TBL where STU_FATH like '%" & CMP_FATH.Text & "%'", con)
       con.Open()
       dr = cmd.ExecuteReader
       dr.Read()
       TXT_MOB.Text = dr("FATH_MOB1")
       TXT_MOB1.Text = dr("FATH_MOB2")

       dr.Close()
       con.Close()
       If CMP_FATH.Text = "" Then
           Call STUG()
       End If
       '''''''''''''''''''''''''''''''''''''''''''

       Table1.Clear()
       da = New OleDbDataAdapter("select STU_TBL.STU_ID,STU_TBL.STU_NAM,STU_TBL.RELA,STU_TBL.STU_MOB,STU_TBL.STU_GEND,STU_TBL.STU_GRAD,BILL_D_TBL.SUBJ,BILL_D_TBL.CORS,BILL_D_TBL.ST_CORS,BILL_D_TBL.E_CORS,BILL_D_TBL.S_G,BILL_D_TBL.COST from STU_TBL ,BILL_D_TBL  where  STU_TBL.STU_FATH like '%" & CMP_FATH.Text & "%'", con)
       da.Fill(Table1)
       DGV_BILL.DataSource = Table1

   End Sub

أرجو امساعدة