求解，为什么添加完第一条记录后，我的MSHFlexGrid2选不中记录行

[lzxbl05]

添加的事件过程我用：

...
rs.AddNew
...
rs.Update
...
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing


当然我也有用刷新的事件过程，这里省略。

奇怪的现象是，如果表中起先无记录，当添加完第一条记录后，就选不中MSHFlexGrid2中的行了，此时只有关闭窗体后再打开，才能正确选中行，而如果表中原先就有记录，再添加新的记录后，不会出现此种现象，也就是此时说不用先卸载窗体也能够准确选中行。（附：而无论是原先表中有没有记录，添加动作后都能刷新而显示添加的结果，就是第一种情况不能选中行）

[cbm6666]

Private Sub MSHFlexGrid2_Click()
datapos = MSHFlexGrid2.RowSel - 1
rs.MoveFirst
rs.Move datapos
Call PaintBlue
End Sub

Private Sub PaintBlue()
MSHFlexGrid2.Row = datapos + 1
For k = 0 To 3
MSHFlexGrid2.Col = k
MSHFlexGrid2.CellForeColor = QBColor(15)
MSHFlexGrid2.CellBackColor = QBColor(1)
Next k
End Sub

[lzxbl05]

点击还要和rs结合，对我来说太复杂，还是结帖吧呵呵 谢谢您

[cbm6666]

有问题的话再在这个帖来发问吧 Mshflexgrid + ADODB 我也算熟了

[lzxbl05]

顶顶自己

[cbm6666]

添加完了 关闭了档案 你还能去那里找? 破门而入吗?

[king06]

你选中行的代码是怎么实现的?
要选中某行很简单啊,直接
MSHFlexGrid2.SetFocus
MSHFlexGrid2.Row = 行数 就是了

[lzxbl05]

[Quote=引用 2 楼 cbm666 的回复:]
添加完了 关闭了档案 你还能去那里找? 破门而入吗?
[/Quote]
确实是没多大必要，小弟发此帖的目的是2个：找出原因和解决这小BUG，呵呵

[lzxbl05]

[Quote=引用 3 楼 king06 的回复:]
你选中行的代码是怎么实现的?
要选中某行很简单啊,直接 
MSHFlexGrid2.SetFocus
MSHFlexGrid2.Row = 行数  就是了
[/Quote]

我用这个来选中行

Private Sub RowColor2(i As Long, q As Long)
Dim n As Long
With MSHFlexGrid2
For n = 1 To .Cols - 1
.row = i
.col = n
.CellBackColor = &HC0FFFF
If q > 0 And i <> q Then
.row = q
.CellBackColor = &HFFFFFF
End If
Next n
q = i
.row = i
End With
End Sub

Private Sub MSHFlexGrid2_Click()
Call RowColor2(MSHFlexGrid2.row, q)
End Sub


不过应该是和这个没有关系，因为我之前没有用这代码，就用控件自带的点击选中，也会出现这样的情况，第一条记录添加后，我点这格，它会选中另一格

[lzxbl05]

[Quote=引用 8 楼 cbm666 的回复:]
有问题的话再在这个帖来发问吧 Mshflexgrid + ADODB 我也算熟了
[/Quote]

嗯，有问题我一定虚心请教！