我们将游标适配器绑定到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设置你所用的数据类型
