MSFlexGrid1疑问

Question

请问如何在一个MSFlexGrid1列表框中触发鼠标点击事件？即点击此表的ID号要求在另一个MSFlexGrid1列表框中显示相应的ID号相等的另一张表的记录。请帮解决，谢谢！

Answer 1

点击MSFLEXGRID1后,会返回一个属性,(ROW,COL)是你所点的单元格的行与列值,你可以取得ID值,然后根据ID找出对应的另一个表的信息,查找后将记录集赋给另一个MSFLEXGRID就可以了
比如:
rs.open "select * from table where field=msflexgrid1.TextMatrix(ID所在的行,列)"
set mshflexgrid2.datasource=rs

Answer 2

代码放在msflexgrid_entercell()中
“select * from table where id=”& val(msflexgrid.TextMatrix(row,col)

Answer 3

谢谢各位对我的解答。不过以上执行还是有错误的。我现在已经实现了我所要解答的问题。代码如下：
mrc.Open "select * from table where Id = '" & flgGrid.Clip & "'"

Answer 4

MS1.Col = 1
Form1.Data1.Recordset.FindFirst CStr("代金券号 like '" & MS1 & "'")
Form1.SetFocus