23-01-16, 05:37 AM
اخى العزيز الفاضل شكرا على اهتمامك لاكن لم يعمل المثال
المشكلة انى استخدم الداتا بيندنج وهذا الكود الذى استخدمه ان كان من الممك عمل الشك بوكس على هذا الكود
المشكلة انى استخدم الداتا بيندنج وهذا الكود الذى استخدمه ان كان من الممك عمل الشك بوكس على هذا الكود
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
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين

