Dynamic row color in Datagrid. 1

[stfarm]

I need to indicate to my users when certain values are there. I would like to chnage the backgroundcolor of the datagrid row based on values in my code.

I am hoping you guys know how to do that. Thank you.



Steve

http://www.ShopHereNow.net

http://www.XdataSolutions.com

http://www.ItsMoreThanSoftware.com

 

[Veep]

Use the ItemDataBound event. Here's an example that changes the forecolor of a row to red if the value of "priority" is true. You can just as easily change the backcolor.

private void dg1_ItemDataBound(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e)
{
			
	if(e.Item.ItemType == ListItemType.Header ||
		e.Item.ItemType == ListItemType.Footer ||
		e.Item.ItemType == ListItemType.Separator)
		return;
	object priority = DataBinder.Eval(e.Item.DataItem,"priority");
	if(priority != DBNull.Value)
	{
		if(Convert.ToBoolean(priority)== true)
			e.Item.ForeColor=Color.Red;
	}
}

 

[stfarm]

That was super fast, thank you very much Veep.

Steve

http://www.ShopHereNow.net

http://www.XdataSolutions.com

http://www.ItsMoreThanSoftware.com

 

[stfarm]

Veep, is there any chance you could please translate this into VB.NET? It's not working for me.

Here is my code.......

For Each rvw As DataRowView In dv
Dim row As DataRow = rvw.Row
myInteger = rvw("name").IndexOf(" ")
Substring1 = rvw("name").Substring(0, myInteger)
ListBox1.Items.Add(Substring1)
If Trim(Substring1) = "b52008" Then

ListBox1.Items.Add("EQ")

End If
Next
If e.Item.ItemType = ListItemType.Header Or e.Item.ItemType = ListItemType.Footer Or e.Item.ItemType = ListItemType.Separator Then
Return
End If
If Substring1 = "b52008" Then
e.Item.ForeColor = Color.Red
End If


Steve

http://www.ShopHereNow.net

http://www.XdataSolutions.com

http://www.ItsMoreThanSoftware.com

 

[Veep]

Is your code in the ItemDataBound event of the DataGrid? You need to make this happen when data becomes bound to the grid at which point you take action based on a value. I'm not sure what you're doing because it looks like you are looping through the rows of a DataView. In reality you need to be looping through the rows of the DataGrid. Can you show the whole Sub?

 

[stfarm]

Sure, here it is. Thank you for your time.

Private Sub C1WebGrid1_ItemDataBound(ByVal sender As Object, ByVal e As C1.Web.C1WebGrid.C1ItemEventArgs) Handles C1WebGrid1.ItemDataBound
' Dim dv As DataView = New DataView(PhysicalDataRead())
Dim Sub1, Sub2 As String
Dim myInteger As Integer
Sub2 = "111"
For Each rvw As DataRowView In dv
Dim row As DataRow = rvw.Row
myInteger = rvw("name").IndexOf(" ")
Sub1 = rvw("name").Substring(0, myInteger)

ListBox1.Items.Add("Substring1 = " & Sub1)

If Sub1 = Sub2 Then
ListBox1.Items.Add("EQ")
End If
Sub2 = Sub1
Next


'If e.Item.ItemType = ListItemType.Header Or e.Item.ItemType = ListItemType.Footer Or e.Item.ItemType = ListItemType.Separator Then
' Return
'End If
'If Sub1 = "b52008" Then
' e.Item.ForeColor = Color.Red
'End If
End Sub

Steve

http://www.ShopHereNow.net

http://www.XdataSolutions.com

http://www.ItsMoreThanSoftware.com

 

[ca8msm]

Here's a useful link that shows you how to change the background colour (it's basically conditional formatting):

http://www.codeproject.com/aspnet/gridcolumnformatting.asp

Is basically the same as Veep's original response though but it may give you a few pointers (also you may want to elaborate on "It's not working for me" as that doesn't give us any clue's on what may be wrong!)


----------------------------------------------------------------------

Need help finding an answer?

Try the search facilty (

http://www.tek-tips.com/search.cfm)

or read FAQ222-2244 on how to get better results.

 

[stfarm]

Sorry, I was referring to veeps code, that wasn't working for me. Thank you for the link. I just wish it could be in VB.

Steve

http://www.ShopHereNow.net

http://www.XdataSolutions.com

http://www.ItsMoreThanSoftware.com

 

[Veep]

I think that this is in the VB neighborhood although untested. My best guess at the moment.

Private Sub C1WebGrid1_ItemDataBound(ByVal sender As Object, ByVal e As C1.Web.C1WebGrid.C1ItemEventArgs) Handles C1WebGrid1.ItemDataBound

Dim Sub1, Sub2 As String
Dim myInteger As Integer

If e.Item.ItemType <> ListItemType.Header Or e.Item.ItemType <> ListItemType.Footer Or e.Item.ItemType <> ListItemType.Separator Then

   myInteger = (DataBinder.Eval(e.Item.DataItem,"name").ToString().IndexOf(" "))
   Sub1 = (DataBinder.Eval(e.Item.DataItem,"name").ToString().Substring(0, myInteger))

   If Sub1 = "b52008" Then
       e.Item.ForeColor = Color.Red
   End If
End If

End Sub

 

[ca8msm]

stfarm,

Don't be phased by C# code - there really isn't much difference. Here's the code from the link I gave you in both C# and VB - have a look through and see what the differences are as maybe this will help you in the future.

C#

private void OnNWDataBound(object sender, 
             System.Web.UI.WebControls.DataGridItemEventArgs e)
{
    if (e.Item.ItemType == ListItemType.Item ||
        e.Item.ItemType == ListItemType.AlternatingItem)
    {
        DataRowView rv = (DataRowView)e.Item.DataItem;
        // Get fourth column value.
        Int32 nUnitsInStock = Convert.ToInt32(rv.Row.ItemArray[4]);
        if (nUnitsInStock < 20)
        {
           e.Item.Cells[4].BackColor = Color.Red;
        }
    }
}

VB

    Private Sub OnNWDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)

        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then

            Dim rv As DataRowView = CType(e.Item.DataItem, DataRowView)
            Dim nUnitsInStock As Int32 = Convert.ToInt32(rv.Row.ItemArray(4))
            If nUnitsInStock < 20 Then
                e.Item.Cells(4).BackColor = Color.Red
            End If
        End If

    End Sub

----------------------------------------------------------------------

Need help finding an answer?

Try the search facilty (

http://www.tek-tips.com/search.cfm)

or read FAQ222-2244 on how to get better results.

 

[stfarm]

Thank you so much guys, that was very helpful, I have learned a lot, and made it work with your help!

This is by far the best Forum EVER!

Steve

http://www.ShopHereNow.net

http://www.XdataSolutions.com

http://www.ItsMoreThanSoftware.com