DaniWeb IT Discussion Community - View Single Post - MSHFlex Grid Field get Highlighted if it is current date

Re: MSHFlex Grid Field get Highlighted if it is current date

Jan 7th, 2009

Hi,

Once the Grid is Loaded, Loop thru the column and Highlight if matching, Say, you are Date Column is 2, Check this Code:

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim i As Integer
For i = 1 To Grd.Rows-1
If ISDate(Grd.TextMatrix(i,2)) Then
  If CDate(Grd.TextMatrix(i,2)) = Date Then
      Grd.Col = 2
      Grd.Row = i
      Grd.CellFontBold = True
     Grd.CellBackColor = vbBlue
     Grd.CellFontColor = vbWhite
  End If
Next
Dim i As Integer
For i = 1 To Grd.Rows-1
If ISDate(Grd.TextMatrix(i,2)) Then
  If CDate(Grd.TextMatrix(i,2)) = Date Then
      Grd.Col = 2
      Grd.Row = i
      Grd.CellFontBold = True
     Grd.CellBackColor = vbBlue
     Grd.CellFontColor = vbWhite
  End If
Next

Change Control Name accordingly..

Regards
Veena