如何在 MS FlexGrid 中实现这种效果?

Question

MS FlexGrid中有大量数据,当某一行符合查找结果时,该行背景为红色.当焦点移动到MS FlexGrid中其他行时,该行背景又自动变回白色.

Answer 1

for i=0 to flexGrig.rows-1 
  if Flexgrid(i,SeekCol)=SeekString then
      Flexgrid.Row=i
      Flexgrid.Col=SeekCol
      Flexgrid.BackColor=vbRed
  end ifnext

Answer 2

if Flexgrid(i,SeekCol)=SeekString then
      Flexgrid.Row=i
      Flexgrid.Col=SeekCol
      Flexgrid.BackColor=vbRed
  end if

Answer 3

最好不要循环.row,数据量挺大的.