+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] وضع check box داخل الداتا جريد (/showthread.php?tid=14477)
وضع check box داخل الداتا جريد - احمد عبد الحكيم - 22-01-16
بسم الله الرحمن الرحيم
السلام عليكم شباب
كود لوضع check box داخل الداتا جريد
وهذا الكود الذى استخدمو للاظهار بيانات الداتا جريد
PHP كود :
DataGridView1.Columns(0).Visible = True
DataGridView1.Columns(1).Visible = True
DataGridView1.Columns(2).Visible = True
DataGridView1.Columns(3).Visible = True
DataGridView1.Columns(4).Visible = True
DataGridView1.Columns(5).Visible = True
DataGridView1.Columns(6).Visible = True
'''''''''''''''''''''
DataGridView1.Columns(0).Width = 60
DataGridView1.Columns(1).Width = 150
DataGridView1.Columns(2).Width = 60
DataGridView1.Columns(3).Width = 100
DataGridView1.Columns(4).Width = 100
DataGridView1.Columns(5).Width = 60
DataGridView1.Columns(6).Width = 60
''''''''''''''''''''''''''''''''''''''''''''''''
DataGridView1.Columns(0).HeaderText = "رقم المدرس"
DataGridView1.Columns(1).HeaderText = "الرقم"
DataGridView1.Columns(2).HeaderText = "اسم الطالب"
DataGridView1.Columns(3).HeaderText = "دفع"
DataGridView1.Columns(4).HeaderText = "تاريخ الدفع"
DataGridView1.Columns(5).HeaderText = "استلام"
DataGridView1.Columns(6).HeaderText = "تاريخ الاستلام"
'''''''''''''''''
RE: وضع check box داخل الداتا جريد - احمد عبد الحكيم - 23-01-16
اخى العزيز الفاضل شكرا على اهتمامك لاكن لم يعمل المثال
المشكلة انى استخدم الداتا بيندنج وهذا الكود الذى استخدمه ان كان من الممك عمل الشك بوكس على هذا الكود
PHP كود :
Try
Dim sql1 As String = "SELECT idtet,id,studntname,mony,datemony,accept,dateaccept FROM hagz2 WHERE (idtet = @oid)"
If Con.State = 0 Then Con.Open()
Using olecmd1 As New SqlCommand(sql1, con)
olecmd1.Parameters.AddWithValue("@oid", orderid)
Using dr1 As SqlDataReader = olecmd1.ExecuteReader
details_Table.Clear()
details_Table.Load(dr1)
DataGridView1.AutoGenerateColumns = True
DataGridView1.DataSource = details_Table
DataGridView1.Columns(0).Visible = True
DataGridView1.Columns(1).Visible = True
DataGridView1.Columns(2).Visible = True
DataGridView1.Columns(3).Visible = True
DataGridView1.Columns(4).Visible = True
DataGridView1.Columns(5).Visible = True
DataGridView1.Columns(6).Visible = True
'''''''''''''''''''''
DataGridView1.Columns(0).Width = 60
DataGridView1.Columns(1).Width = 150
DataGridView1.Columns(2).Width = 60
DataGridView1.Columns(3).Width = 100
DataGridView1.Columns(4).Width = 100
DataGridView1.Columns(5).Width = 60
DataGridView1.Columns(6).Width = 60
''''''''''''''''''''''''''''''''''''''''''''''''
DataGridView1.Columns(0).HeaderText = "رقم المدرس"
DataGridView1.Columns(1).HeaderText = "الرقم"
DataGridView1.Columns(2).HeaderText = "اسم الطالب"
DataGridView1.Columns(3).HeaderText = "دفع"
DataGridView1.Columns(4).HeaderText = "تاريخ الدفع"
DataGridView1.Columns(5).HeaderText = "استلام"
DataGridView1.Columns(6).HeaderText = "تاريخ الاستلام"
'''''''''''''''''
DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.MultiSelect = False
With Me.DataGridView1
.RowsDefaultCellStyle.BackColor = Color.White
.AlternatingRowsDefaultCellStyle.BackColor = Color.White
.RowsDefaultCellStyle.ForeColor = Color.Black
.AlternatingRowsDefaultCellStyle.ForeColor = Color.Black
End With
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try