SOLVED:HitTest

Hi Everyone! or Aaron

why is it the hitItem in VirtualMode doesn't display a value/caption.

Dim hitItem As ReportRecordItem
    'Returns a reference to the item clicked
    'Determines which row the mouse was positioned over on mousedown.
    Set hitItem = wndReportControl.HitTest(X, Y).Item
    If Not hitItem Is Nothing Then
        If Not wndReportControl.PreviewMode Then
            Debug.Print "MouseDown on Item: " & hitItem.Value & " in column: " & hitColumn.Caption
        ElseIf Not (hitRow.Record.PreviewText = "") Then
            Debug.Print "MouseDown on PreviewText"
        End If
    End If

Hi SuperMario! Good Day!

thanks you for your reply... is there any other way to get the hitTest in VM? or any workaround?
please...

thanks?

Hi Aaron!

Im using the code below to retrieve data in database...:

Private Const COLUMN_APHC = 0
Private Const COLUMN_PLTRNAME = 1
Private Const COLUMN_HDANAME = 2
Private Const COLUMN_LKG = 3
Private Const COLUMN_NETCANE = 4
Private Const COLUMN_ESTIMATED = 5
Private Const COLUMN_PROGRESS = 6
Private Const COLUMN_ICON_STATUS = 7

Dim sSplit As Variant

Private Sub Form_Load()
   sSplit = Array("APHCODE", "PLTR_NAME", "HDA_NAME", "T_LKG", "T_NET_CANE", "ESTIMATED", "PROGRESS")
    rs.Open SQLParser.SQLStatement, ConnectTo.InternalConn, adOpenStatic, adLockOptimistic
    CustomizeRepCtrl
    If rs.RecordCount > 0 Then  rs.MoveFirst
    With wndList
        .SetVirtualMode rs.RecordCount
        .Populate
        .Redraw
    End With
End Sub
Private Sub wndList_BeforeDrawRow(ByVal Row As XtremeReportControl.IReportRow, ByVal Item As XtremeReportControl.IReportRecordItem, ByVal Metrics As XtremeReportControl.IReportRecordItemMetrics)

    If Row.Index < rs.RecordCount Then
        rs.AbsolutePosition = Row.Index + 1: rs.Move 0
        Select Case Item.Index
        Case COLUMN_APHC, COLUMN_PLTRNAME, COLUMN_HDANAME, COLUMN_LKG,
                Metrics.Text = rs.Fields(sSplit(Item.Index)).Value & ""
            End If
        End Select
    End If
End Sub
Private Sub CustomizeRepCtrl()
    Dim Column As ReportColumn
    Set Column = wndList.Columns.Add(COLUMN_ICON_STATUS, "ICONSTATUS", 18, False)
        Column.Editable = False
        Column.Icon = COLUMN_BLACK_ICON
    Set Column = wndList.Columns.Add(COLUMN_APHC, "APHCODE", 100, True)
        Column.Editable = False
    Set Column = wndList.Columns.Add(COLUMN_PLTRNAME, "Planter Name", 400, True)
        Column.Editable = False
    Set Column = wndList.Columns.Add(COLUMN_HDANAME, "HDA Name", 200, True)
        Column.Editable = False
    Set Column = wndList.Columns.Add(COLUMN_LKG, "LKG", 70, True)
        Column.Editable = False
    Set Column = wndList.Columns.Add(COLUMN_NETCANE, "NET CANE", 70, True)
        Column.Editable = False
    Set Column = wndList.Columns.Add(COLUMN_ESTIMATED, "EST. NET CANE", 100, True)
        Column.Editable = True
        Column.EditOptions.SelectTextOnEdit = True
    With wndList   
        .PaintManager.ColumnStyle = xtpColumnOffice2007
        .EnableMarkup = True
        .PaintManager.DrawGridForEmptySpace = True
        .PaintManager.VerticalGridStyle = xtpGridSmallDots
        .PaintManager.HorizontalGridStyle = xtpGridSmallDots
        .SetCustomDraw xtpCustomBeforeDrawRow
        .SetVirtualMode 0
    End With
End Sub

Private Sub wndList_BeginEdit(ByVal Row As XtremeReportControl.IReportRow, ByVal Column As XtremeReportControl.IReportColumn, ByVal Item As XtremeReportControl.IReportRecordItem)
    Dim i As Integer
    rs.AbsolutePosition = (Row.Index + 1): rs.Move 0
    For i = 0 To UBound(sSplit())
        ReDim Preserve strItemVal(0 To i)
        strItemVal(i) = rs.Fields(sSplit(i)).Value & ""
    Next i
End Sub

Please let me know if have mistaken something... thanks

thanks... another problem solved!