Question

VB查询后，MSHFlexGrid如何自动选中第一行

总的一句话，我想MSHFlexGrid在失去焦点之后，依然选中某一行，每次查询之后，自动选中第一行或者最优的模糊值，这样的话，用户比较方便操作。不用每次查询都要点一下，麻烦。

Answer 1

VB查询后可使用MSHFlexGrid控件的Row属性和ColSel属性达到自动选中第一行。

Row属性，返回或设置 MSHFlexGrid 中活动单元的坐标。

ColSel属性，ColSel — 为一定范围的单元格返回或设置的起始列和或终止列。

实现代码：

Private Sub Command1_Click()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select * from jishijilu where shijian like'%" & Text1 & "%' And gyh_riqi like'%10%'"
    Adodc1.Refresh
    Set MSHFlexGrid1.DataSource = Adodc1
    MSHFlexGrid1.Row = 1
    MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
End Sub

Answer 2

用这个..选中最后一行的.
MSFlexGrid1.Row = MSFlexGrid1.Rows - MSFlexGrid1.FixedRows
MSFlexGrid1.RowSel = MSFlexGrid1.Rows - MSFlexGrid1.FixedRows
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1

Answer 3

MSFlexGrid1.Row=1