change row color of DataGrid in VB.Net (Windows ap

remya1000 · October 12th, 2007, 03:03 PM

i'm using VB.NET. and its a windows application.

in my program i need to display a table in datagrid. so i created the table using DataTable and i'm calling that dataTable to dataGrid. and its working fine...

but according to one of the field in that table i need to change the back color of that row. one of the field in that table called "Active", it will have value as True or False. so if Active =True then i need that corresponding row to be turned Pink. and if Active = False then i need that corresponding row to be white.

and i search lots in net... but didnt get much help at all...

this the code i'm using now to create table and displaying it inside Datagrid.

Code:

 Dim Table1 As DataTable = New DataTable("Orders")
        Dim Row As DataRow

        Dim EmpName As DataColumn = New DataColumn("EmpName")
       Table1.Columns.Add(EmpName)

        Dim EmployeeID As DataColumn = New DataColumn("EmpID")
        EmployeeID.DataType = System.Type.GetType("System.Int32")
        Table1.Columns.Add(EmployeeID)

        Dim CardNo As DataColumn = New DataColumn("CardNo")
        CardNo.DataType = System.Type.GetType("System.Int32")
        Table1.Columns.Add(CardNo)

        Dim Active As DataColumn = New DataColumn("Active")
        Table1.Columns.Add(Active)

        Dim i As Integer = 0

        Dim strSQL As String = "Select LastName, FirstName, EmpID, CardNo, Active from Employees order by LastName asc"
        myConnection.Open()
        Dim myCommand As New OleDbCommand(strSQL, myConnection)
        Dim myReader As OleDbDataReader = myCommand.ExecuteReader

       While myReader.Read
            Row = Table1.NewRow()
            Row("EmpName") = myReader(0) & "," & myReader(1)
            Row("EmpID") = myReader(2)
            Row("Card No") = myReader(3)
            If myReader(4) = 0 Then
                Row("Active") = "True"
            ElseIf myReader(4) = 1 Then
                Row("Active") = "False"
            End If
            Table1.Rows.Add(Row)
         End While

        Dim objDataView As New DataView(Table1)
        DataGrid1.DataSource = objDataView
        myConnection.Close()

how can i change the back color of rows in DataGrid when Active=True... and i need to change only that particular row's back color were Active=True...

if you have any idea how to do this please help me... and if you can provide an example, then it will be great help for me...

thanks in advance.

remya1000 · October 15th, 2007, 12:49 PM

while searching i found out a link. and this is that link i got...

http://www.syncfusion.com/FAQ/Window...44c.aspx#q745q

here its using DataSet and it will check each Columns and if first alphabet in column is greater than "F" then it will change the colour of that column. but not the entire row.

in my program i need to change the colour of row according to the Field name Active. but i don't need to display the field Active. only the remaining fields i need to display and active is used to check if Active is True, then Row colour should be Pink and if Active is False then row colour is white.

and i tried using DataTable instead of DataSet in that example but wont change the colour at all... but if we use DataSet then it will change colour.

i'm new to programming... so you have any idea how to do this please let me know... and if you can provide any help then it will be great helpfull for me.

thanks in advance.

December 31st, 2007, 03:56 AM

Use the RowDataBound Event... of GridView

Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)

     If e.Row.RowType = DataControlRowType.DataRow Then

         'retrieve the dataitem, and cast it to the appropriate type

         'if you bound the GridView to a SqlDataSource then your dataitem is of type DataRowView

         Dim drv As DataRowView = TryCast(e.Row.DataItem, DataRowView)

         If drv("Active").ToString().Equals("True") Then

             e.Row.BackColor = System.Drawing.Color.Pink
     Else
             e.Row.BackColor = System.Drawing.Color.White

         End If
     End If

End Sub

I dont got time to test it
from one of my old resource i took this
bye

jomet.
---------------------------------------------
Once you start a working on something,
dont be afraid of failure and dont abandon it.
People who work sincerely are the happiest.