With MSHFlexGrid1
For r = 1 To .Rows - 1
If .TextMatrix(r,1) = "sunzili" And .TextMatrix(r,5) = "2000" Then ' 你的查询条件
.Row = r
.RowSel = r
.Col = 0
.ColSel = .Cols - 1
MSHFlexGrid1_Click ' 激活行“单击”事件
End If
End With
With MSHFlexGrid1
If .TextMatrix(r,1) = "sunzili_2005" And .TextMatrix(r,5) = "2000" Then ' 你的查询条件
.Row = r
.RowSel = r
.Col = 0
.ColSel = .Cols - 1
MSHFlexGrid1_Click
End If
End With