31-03-13, 12:01 AM
هذا الكود لكتابة على الداتا قريد وقد تم كتابة السطر الاول
كيف اتم باقي الاسطر
كيف اتم باقي الاسطر
PHP كود :
Me.DataGridView1.DataSource = Nothing
Call Me.DataGridView1.Columns.Clear()
Call Me.DataGridView1.Rows.Clear()
Me.DataGridView1.ColumnHeadersVisible = False
Me.DataGridView1.RowHeadersVisible = False
Me.DataGridView1.Refresh()
Me.DataGridView1.Columns.Add("Columns1", "")
Me.DataGridView1.Columns(0).Width = 30
Me.DataGridView1.Columns.Add("Columns2", "")
Me.DataGridView1.Columns(1).Width = 30
Me.DataGridView1.Columns.Add("Columns3", "")
Me.DataGridView1.Columns(2).Width = 30
Me.DataGridView1.Columns.Add("Columns4", "")
Me.DataGridView1.Columns(3).Width = 30
Me.DataGridView1.Columns.Add("Columns5", "")
Me.DataGridView1.Columns(4).Width = 30
Me.DataGridView1.Columns.Add("Columns6", "")
Me.DataGridView1.Columns(5).Width = 30
Me.DataGridView1.Columns.Add("Columns7", "")
Me.DataGridView1.Columns(6).Width = 30
Me.DataGridView1.Columns.Add("Columns8", "")
Me.DataGridView1.Columns(7).Width = 30
Me.DataGridView1.Columns.Add("Columns9", "")
Me.DataGridView1.Columns(8).Width = 30
Me.DataGridView1.Columns.Add("Columns10", "")
Me.DataGridView1.Columns(9).Width = 30
Me.DataGridView1.Columns.Add("Columns11", "")
Me.DataGridView1.Columns(10).Width = 30
For Each Row As DataGridViewRow In Me.DataGridView1.Rows
Row.DataGridView.RowsDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
Row.Cells(0).Value = "U"
Row.Cells(1).Value = "W"
Row.Cells(2).Value = "E"
Row.Cells(3).Value = "D"
Row.Cells(4).Value = "N"
Row.Cells(5).Value = "E"
Row.Cells(6).Value = "S"
Row.Cells(7).Value = "D"
Row.Cells(8).Value = "A"
Row.Cells(9).Value = "Y"
Row.Cells(10).Value = "T"
Next