03-07-25, 03:10 PM
شكرا على الرد
من على الفورم
Sub LoadDGView()
winclass.filldataset("SELECT * FROM EMP ORDER BY Nem ASC")
With DGView
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.EnableHeadersVisualStyles = False
.RowHeadersWidth = 20
.AlternatingRowsDefaultCellStyle.BackColor = Color.Honeydew
.DefaultCellStyle.SelectionBackColor = Color.YellowGreen
.Columns(7).HeaderCell.Style.BackColor = Color.GreenYellow
.Columns(0).Width = 20
.Columns(1).Width = 60
.Columns(5).Width = 68
.Columns(6).Width = 68
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End With
End Sub
على الكلاس
Sub filldataset(sql As String)
ds = New DataSet
da = New OleDbDataAdapter(sql, con)
da.Fill(ds, 0)
dv = New DataView(ds.Tables(0))
End Sub
من على الفورم
Sub LoadDGView()
winclass.filldataset("SELECT * FROM EMP ORDER BY Nem ASC")
With DGView
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.EnableHeadersVisualStyles = False
.RowHeadersWidth = 20
.AlternatingRowsDefaultCellStyle.BackColor = Color.Honeydew
.DefaultCellStyle.SelectionBackColor = Color.YellowGreen
.Columns(7).HeaderCell.Style.BackColor = Color.GreenYellow
.Columns(0).Width = 20
.Columns(1).Width = 60
.Columns(5).Width = 68
.Columns(6).Width = 68
.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End With
End Sub
على الكلاس
Sub filldataset(sql As String)
ds = New DataSet
da = New OleDbDataAdapter(sql, con)
da.Fill(ds, 0)
dv = New DataView(ds.Tables(0))
End Sub
