Show "schematic find" form when double click in a report field

Dear Sir,

Skill functions needed:

1) Search schematic devices in hierarchy and displayed in a report field

2) When double click one of the devices in the report field, open "schematic find" form with proper setting.

Following is my code. The report field can display properly. But when I double click one of the itmes, it gives following error message. Please help.

*** Error in routine error:
Message: *Error* (SCH-1005): The current command requires a schematic or symbol cellview. As the current cellview is of a type other than schematic or symbol, this action cannot complete.

procedure(xpGetDeviceList()
let((cv techLib devList cellList hierResult hReportField listLibDev)
cv = geGetEditCellView()

;; Search devices in hierarchy 
listLibDev = ... ...

hReportField = hiCreateReportField(
?name 'rptField
?headers list(list("Library" 100 'left 'string t) list("Device" 100 'left 'string t))
?choices listLibDev
?selectMode 'single
?doubleClickCB 'ReportFieldDoubleClickCb
)

if( !boundp('xpFormDeviceList) || (xpFormDeviceList==nil) then
hiCreateAppForm(
?name 'xpFormDeviceList
?fields list(
list(hReportField 0:0 300:400)
)
?formTitle "Device List"
?buttonLayout 'OKCancel
?unmapAfterCB t
?initialSize list(300 450)
)
else
xpFormDeviceList->rptField->choices = listLibDev
)

hiDisplayForm('xpFormDeviceList)
))

procedure(ReportFieldDoubleClickCb(fieldName indexSel)
let((devSelected)
devSelected = nth(indexSel xpFormDeviceList->rptField->choices)

schHiFind( "cellName" "==" cadr(devSelected) )
schSchFindForm->schFindSearchScope->value="hierarchy"

))