'**************************************************************************
'* DATAGRIDVIEW CELL COLOR & FILTER WITH VB.NET *
'**************************************************************************
' COPY PASTE THIS CODE TO FORM1
'CREATE A DATAGRIDVIEW
'CREATE A COMMAND BUTTON
'CREATE A TEXTBOX
Imports System.Data.OleDb
Public Class Form1
Dim dv As New DataView
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\data.mdb")
If cn.State = ConnectionState.Closed Then cn.Open()
Dim cmd1 As New OleDbCommand("select * from itemmast", cn)
Dim dr As OleDbDataReader
dr = cmd1.ExecuteReader
Dim dt As New DataTable
dt.Load(dr)
dt.TableName = "itemmast"
dv.Table = dt
DataGridView1.DataSource = dv
With DataGridView1
.RowHeadersVisible = False
.RowsDefaultCellStyle.BackColor = Color.LightBlue
.AlternatingRowsDefaultCellStyle.BackColor = Color.White
.EnableHeadersVisualStyles = False
.ColumnHeadersDefaultCellStyle.BackColor = Color.Green
.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
End With
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dv.RowFilter = "partno like '%" & TextBox1.Text & "%'"
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
dv.RowFilter = "partno like '%" & TextBox1.Text & "%' or partds like '%" & TextBox1.Text & "%'"
Label1.Text = dv.Count & " Rows"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub
End Class
Public Class Form1
Dim dv As New DataView
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\data.mdb")
If cn.State = ConnectionState.Closed Then cn.Open()
Dim cmd1 As New OleDbCommand("select * from itemmast", cn)
Dim dr As OleDbDataReader
dr = cmd1.ExecuteReader
Dim dt As New DataTable
dt.Load(dr)
dt.TableName = "itemmast"
dv.Table = dt
DataGridView1.DataSource = dv
With DataGridView1
.RowHeadersVisible = False
.RowsDefaultCellStyle.BackColor = Color.LightBlue
.AlternatingRowsDefaultCellStyle.BackColor = Color.White
.EnableHeadersVisualStyles = False
.ColumnHeadersDefaultCellStyle.BackColor = Color.Green
.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
End With
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dv.RowFilter = "partno like '%" & TextBox1.Text & "%'"
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
dv.RowFilter = "partno like '%" & TextBox1.Text & "%' or partds like '%" & TextBox1.Text & "%'"
Label1.Text = dv.Count & " Rows"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub
End Class
No comments:
Post a Comment