25-03-20, 05:24 PM
السلام عليكم ورحمة الله وبركاته
عندي داتا جريد فيو أقوم بتعبئتها من قاعدة بيانات اكسس وأقوم بإضافة أعمدة أخرى إليها لإدخال البيانات بها ومن ثم حفظها في جدول آخر
المشكلة أنه بعد الاستدعاء أقوم بالبحث يختلف ترتيب الاعمدة
وهذا كود التعبة مع إضافة أعمدة برمجيا
ولكن مع البحث يختل الترتيب
وهذا هو كود البحث
أرجو امساعدة
عندي داتا جريد فيو أقوم بتعبئتها من قاعدة بيانات اكسس وأقوم بإضافة أعمدة أخرى إليها لإدخال البيانات بها ومن ثم حفظها في جدول آخر
المشكلة أنه بعد الاستدعاء أقوم بالبحث يختلف ترتيب الاعمدة
كود :
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