MsFlexGrid的Row如何与ADO的RS记录相互关联
在MsFlexGrid控件中,显示数据库记录常用方法如下:
sql= "select * from tname "
If RS.State = 1 Then RS.Close
RS.Open SQL, adoCN, adOpenKeyset, adLockOptimistic
With FG
.Redraw = False
.Rows = 1
.Rows = 2
iRow = 0注释:irow 自己定义的变量,表示当前行
Do While Not RS.EOF
注释:使fg.rows 随记录变化
iRow = iRow + 1
If iRow > = .Rows Then .Rows = .Rows + 1
.TextMatrix(iRow, 0) = rs(0)
.TextMatrix(iRow, 1) = rs(1)
......
RS.MoveNext
Loop
End With
End Sub
从我查的资料看,ADO的RS记录通过TextMariX在MSFextGrid中显赫。
逆操作,点击MsFlexGrid的任何一行,返回MSHFlexGrid1.Row,再通过
MsFlexGrid.row获得MsFlexGrid.col(0),MsFlexGrid.col(1)值。
Select MsFlexGrid.col(0),MsFlexGrid.col(1) From 表名
请教各位大侠的问题,
有什么方法,点击MsFlexGrid控件,MsFlexGrid.Row如何与ADO的RS记录相互关联。
[解决办法]
用关键字,比如rs(0)是关键字
sql= "select * from tname where keyname= " & MsFlexGrid.TextMatrix(MsFlexGrid.Row, 0)
If RS.State = 1 Then RS.Close
RS.Open SQL, adoCN, adOpenKeyset, adLockOptimistic
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html