CellBoldAt

I must be missing something pretty obvious because I cannot get CellBoldAt to work !!!

I have a ListBox that lists our open cases - some have Service Dates in the past, some in the future, and some for the current date. I want to mark the cases with Service Dates = the current date as Bold. The code I’m using is:

While NOT rs.AfterLastRow

lb.AddRow()
lb.RowTagAt(lb.LastAddedRowIndex) = rs.Column(“ClientNum”).StringValue

For i As Integer = 0 to rs.LastColumnIndex - 1

lb.CellTextAt(lb.LastAddedRowIndex,i) = rs.ColumnAt(i+1).StringValue

If rs.Column("TestDate").Value = d.DayOfYear Then
  lb.CellBoldAt(lb.LastAddedRowIndex, i) = True
End If

Next i

rs.MoveToNextRow

I’ve stepped through the code and the IF statement is triggered when the DayOfYear of TestDate = d.DayOfYear. However, the ListBox cells are not showing as Bold.

I’ve tried filling the data in the ListBox row both before and after the CellBoldAt is triggered, but the text is still not Bold.

Any ideas as to what obvious thing I’m overlooking ???

5 posts - 4 participants

Read full topic