foxpro如何从Grid控件中取到值

我们将游标适配器绑定到Grid中后,我们希望在点击Grid时,弹出我们点击的单元格内的值,然后去做其它的操作
那么应如何处理呢?

我们可以将Grid的Click事件交给Grid.Click函数去处理

FOR EACH loColumn IN THISFORM.grid1.Columns
 FOR EACH loObj IN loColumn.Objects
  bindevent( loObj, "CLICK", THISFORM.grid1, "Click" )
 ENDFOR
ENDFOR

然后我们在Grid的Click事件里这样写就可以了

mcolumn= thisform.grid1.ActiveColumn-1
mrows=thisform.grid1.ActiveRow-1

&&mytable.
oRs.MoveFirst()
oRs.Move(mrows)
MESSAGEBOX(ors.Fields(mcolumn).Value)

注oRs为ADODB.RecordSet,你可以将oRs设置你所用的数据类型