Private Sub GridQueryCellInfo(ByVal sender As Object, ByVal e As GridQueryCellInfoEventArgs)
If ((e.RowIndex > 0) _
AndAlso (e.ColIndex > 0)) Then
e.Style.CellValue = externalData((e.RowIndex - 1)).Items((e.ColIndex - 1))
''Add cellcommment
Dim Key As String = Me.GetHashKey(e.RowIndex, e.ColIndex)
If Me.CommentHash.ContainsKey(Key) Then
''MsgBox("oops")
'' Getting the style value using indexer causes recursive loop
'' instead get it using e.Style
Dim style As New ExcelTip.GridExcelTipStyleProperties(e.Style)
style.ExcelTipText = CStr(Me.CommentHash(Key))
End If
Best regards,
Jay N