[احمد عبد الحكيم]

بسم الله الرحمن الرحيم
السلام عليكم شباب
كود لوضع 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 = "تاريخ الاستلام"
                    ''''''''''''''''' 


اريد check box فى columan (3) و columan (5)

[احمد عبد الحكيم]

اخى العزيز الفاضل شكرا على اهتمامك لاكن لم يعمل المثال

المشكلة انى استخدم الداتا بيندنج وهذا الكود الذى استخدمه ان كان من الممك عمل الشك بوكس على هذا الكود

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