تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب مساعدة
#1
السلام  عليكم ورحمة الله وبركاته
عندي داتا جريد فيو أقوم بتعبئتها من قاعدة بيانات اكسس وأقوم بإضافة أعمدة أخرى إليها لإدخال البيانات بها ومن ثم حفظها في جدول آخر
المشكلة أنه بعد الاستدعاء أقوم بالبحث يختلف ترتيب الاعمدة
كود :
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
أرجو امساعدة
الرد
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
بما انك انشأت الاعمدة واضفتها برمجيا 
فلزاما عليك وضع كل عمود قادم من الداتاتابل في عمود انت تحدد من اعمدة الداتا غرايد 
راجع كل عمود وطابقه مع القادم من الداتاتابل
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: mohamedahmed1 , عبد العزيز البسكري
#3
(25-03-20, 09:16 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
بما انك انشأت الاعمدة واضفتها برمجيا 
فلزاما عليك وضع كل عمود قادم من الداتاتابل في عمود انت تحدد من اعمدة الداتا غرايد 
راجع كل عمود وطابقه مع القادم من الداتاتابل

جزاك الله خيرا على سرعة الرد
ممكن مثال للتوضيح
وجزاك الله خيرا
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
السلام عليكم ورحمة الله وبركاته
اخي انصحك بتعلم  الصيد بنفسك ستكتشف الكثير 
اليك هذا الرابط يتحدث عن الداتاغرايد واملائه بالداتاسورس اتوماتيكيا او بالاعمدة المنشأة
https://www.youtube.com/watch?v=ro_d053A...dj&index=5
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#5
(25-03-20, 10:44 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي انصحك بتعلم  الصيد بنفسك ستكتشف الكثير 
اليك هذا الرابط يتحدث عن الداتاغرايد واملائه بالداتاسورس اتوماتيكيا او بالاعمدة المنشأة
https://www.youtube.com/watch?v=ro_d053A...dj&index=5

اشكرك
ساستمع واقوم بالتطبيق

(26-03-20, 07:46 AM)عاشق الرسول كتب :
(25-03-20, 10:44 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي انصحك بتعلم  الصيد بنفسك ستكتشف الكثير 
اليك هذا الرابط يتحدث عن الداتاغرايد واملائه بالداتاسورس اتوماتيكيا او بالاعمدة المنشأة
https://www.youtube.com/watch?v=ro_d053A...dj&index=5

اشكرك
ساستمع واقوم بالتطبيق

لقد قمت بالتطبيق ونجحت معي 
والفيديو مفيد جدا
بس ينفع وضع العمود في ترتيب معين
أي لا يظهر في أول لداتا جريد يظهر في موضعه الطبيعي بالجدول المتصل
الرد
تم الشكر بواسطة: ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم