Visual Basic .NET 2010 DataGridView

​

if datagriview1.rows.count = 0 then
msgbox ("veri yok")
else
msgbox ("veri var")
end if 'bitir

Genişletmek için tıkla ...

Dim connectionString As String = "Data Source=.;Initial Catalog=pubs;Integrated Security=True"
Dim sql As String = "SELECT * FROM Authors"
Dim connection As New SqlConnection(connectionString)
Dim dataadapter As New SqlDataAdapter(sql, connection)
Dim DeaLyDeviL As New DataSet()
connection.Open()
dataadapter.Fill(DeaLyDeviL, "Authors_table")
connection.Close()
DataGridView1.DataSource = DeaLyDeviL
DataGridView1.DataMember = "Authors_table"

Genişletmek için tıkla ...

DataGridView1.GridColor = Color.Red
DataGridView1.CellBorderStyle = DataGridViewCellBorderStyle.None
DataGridView1.BackgroundColor = Color.LightGray

DataGridView1.DefaultCellStyle.SelectionBackColor = Color.Red
DataGridView1.DefaultCellStyle.SelectionForeColor = Color.Yellow

DataGridView1.DefaultCellStyle.WrapMode = DataGridViewTriState.[True]

DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
DataGridView1.AllowUserToResizeColumns = False

DataGridView1.RowsDefaultCellStyle.BackColor = Color.Bisque
DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Beige

Genişletmek için tıkla ...

DataGridView1.ColumnCount = 3
DataGridView1.Columns(0).Name = "ID"
DataGridView1.Columns(1).Name = "İsim"
DataGridView1.Columns(2).Name = "Fiyat"

Dim row As String() = New String() {"1", "1.Nesne", "1000"}
DataGridView1.Rows.Add(row)
row = New String() {"2", "2.Nesne", "2000"}
DataGridView1.Rows.Add(row)
row = New String() {"3", "3.Nesne", "3000"}
DataGridView1.Rows.Add(row)
row = New String() {"4", "4.Nesne", "4000"}
DataGridView1.Rows.Add(row)

Dim kontrol As New DataGridViewCheckBoxColumn()
DataGridView1.Columns.Add(kontrol)
chk.HeaderText = "Kontrol"
chk.Name = "kontrol"
DataGridView1.Rows(2).Cells(3).Value = True

Genişletmek için tıkla ...

Maxigame - _DeaLyDeviL_

​