您好！
   下面的代码可以将MSHFlexGrid控件中第2列数据为1的第一条记录（假设第2列中数据为1的记录有多条）显示在MSHFlexGrid控件的首行。

   Dim a As Integer
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from tb_mrsoft "
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1
For i = 0 To Adodc1.Recordset.RecordCount
  a = a + 1
  If Adodc1.Recordset.Fields(1) = 1 Then
     GoTo mrsoft
  End If
  Adodc1.Recordset.MoveNext
Next i
mrsoft:
   MSHFlexGrid1.TopRow = a
End Sub