شكرا اخي learning.net قمت بحلها بطريقة غير مباشرة و نفعت معي الطريقة ،،
،،
الطريقة التي استخدمتها كالتالي ::
1) جلبت الحقول كلها من قاعدة البيانات و عرضتها في الداتا قريد فيو
2) اضفت عمود الوقت الخاص بكودك
3) عملة حلقة تكرار تمر من اول سجل الى اخر سجل و تقوم باخذ قيمة الحقل الوقت الجاهز من قاعدة البيانات و ادخالها في عمود الوقت الجديد
4) اخفي الحقل القديم
5) اغير ترتيب الحقل الجديد الى اي مكان اريد و هذا هو الكود ،، من لديه كووود افضل فليطرحه
و هذا الكود لجعل بعض الاعمده قابله للتعديل و الاخرى لا :
،، الطريقة التي استخدمتها كالتالي ::
1) جلبت الحقول كلها من قاعدة البيانات و عرضتها في الداتا قريد فيو
2) اضفت عمود الوقت الخاص بكودك
3) عملة حلقة تكرار تمر من اول سجل الى اخر سجل و تقوم باخذ قيمة الحقل الوقت الجاهز من قاعدة البيانات و ادخالها في عمود الوقت الجديد
4) اخفي الحقل القديم
5) اغير ترتيب الحقل الجديد الى اي مكان اريد و هذا هو الكود ،، من لديه كووود افضل فليطرحه
PHP كود :
' عملية اضافة حقل وقت و اضافته بحيث يقبل التعديل من الداتا قريد فيو
Dim col As New TimeColumn()
Me.DgvShowAppoint.Columns.Add(col)
' الحقل رقم 11 هو عمود الوقت الجديد
Me.DgvShowAppoint.Columns(11).HeaderText = "الوقت"
DgvShowAppoint.Columns(11).DefaultCellStyle.BackColor = Color.FromArgb(224, 224, 224)
DgvShowAppoint.Columns(11).DisplayIndex = 2
Dim time As DateTime
Dim row As DataGridViewRow
For Each row In Me.DgvShowAppoint.Rows
' row.Cells(2) : الاثنان يمثل رقم العمود الذي يحوي الوقت الموجود في الداتا قريد فيو
time = DateTime.Today.Add(row.Cells(2).Value)
row.Cells(11).Value = time
Next row
DgvShowAppoint.Columns(2).Visible = False
''''''''''''''''''''''''''''''نهاية الكود الجديد'''''''''''''''''
و هذا الكود لجعل بعض الاعمده قابله للتعديل و الاخرى لا :
PHP كود :
DgvShowAppoint.Columns(0).ReadOnly = True
' DgvShowAppoint.Columns(1).ReadOnly = True
DgvShowAppoint.Columns(2).ReadOnly = false
DgvShowAppoint.Columns(3).ReadOnly = True
DgvShowAppoint.Columns(4).ReadOnly = True
DgvShowAppoint.Columns(5).ReadOnly = True
DgvShowAppoint.Columns(6).ReadOnly = True
DgvShowAppoint.Columns(7).ReadOnly = True
DgvShowAppoint.Columns(8).ReadOnly = True
DgvShowAppoint.Columns(9).ReadOnly = True
DgvShowAppoint.Columns(10).ReadOnly = True
