求教mshflexgrid 大家来看看

Question

我想达到的要求是：在入库窗口，上面是数据输入部分，下面是显示部分（用mshflexgrid）。我希望　当输入某想入库记录后，mshflexgrid能对该记录突出已蓝条显示。请蜈蚣赐教，请各位赐教！

Answer 1

with mshflexgrid
    .row=n       'n为你要“突出已蓝条显示”的行号
    .rowsel=n
    .col=0
    .colsel=.cols-1
end with

Answer 2

//那如何得到一个记录的行号呢?    不知你的具体要求是什么
    好象你的做循环查找mshflexgrid中的记录  与你输入的记录相符  后记下行号
   例如：
with mshflexgrid
  for i=1 to .rows-1
    if .TextMatrix(i,m)=你输入得数局 then    ‘m 为查找的某一列
         n=i    '记下查找的行号
    end if
end with

Answer 3

谢谢　shiyunlong() 的热心解答　给了我很多的启示！
我设想的入库窗口是，上部分输入数据，下部分就可以浏览。但我遇到的情况是，当我输入一条记录时，浏览部分（mshflexgrid),可能在我几百条记录中很难找了。所以我想每当我输完一条记录　mshflexgrid 就能已蓝条显示出　并排列到前面行。

Answer 4

Dim i As Long
With MSHFlexGrid1
For i = 1 To .Rows - 1
   If .TextMatrix(i, 0) = Text1.Text Then '查询第一行的值是否等于Text1.Text 
      .Row = i
      .ColSel = .Cols - 1
      .TopRow = i
      Exit Sub
   End If
Next
End With