向msflexgrid中添加数据的时候,多出空白行??

Question

gridhead = "" & Chr(9) & "规格" & Chr(9) & "品牌" & Chr(9) & "花纹" & Chr(9) & "数量" & Chr(9) & "单价" & Chr(9) & "总金额" & Chr(9) & "类别" & Chr(9) & "厂名"
 Grid.AddItem gridhead
 Dim rs As DAO.Recordset
 Set rs = Pub_db.OpenRecordset(strsql)
 While Not rs.EOF
    Grid.AddItem "" & Chr(9) & rs!gg & Chr(9) & rs!sb & Chr(9) & rs!hw & Chr(9) & rs!sl & Chr(9) & rs!dj & Chr(9) & rs!zje & Chr(9) & rs!lb & Chr(9) & rs!cm
    rs.MoveNext
 Wend
--------------
这样,显示的时候多出一行空白行,如果继续刷新的话,又多出与现有记录数相同数量的空白行,不知什么问题?

Answer 1

加一句代码：
  grid.row=1

Answer 2

msflexgrid.rows= msflexgrid.fixedrows

Answer 3

Grid.Clear
Grid.Row = Grid.FixedRows
Grid.Cols = 8
--------------------
之前我已经加入了这些,第一行还是空白行,从第二行开始才是标题行.

Answer 4

MSHFLexGrid的默認rows屬性等於2，如果你用AddItem來添加新行的話，那麼總有一個空行在前面的。你隻要在添加行前，執行MSHFlexGrid.Rows=Recordset.RecordCount+1即可。

Answer 5

因为MSHFGrid只会自动增加行,不会自动减少行..-_-!

Answer 6

我再顶顶
我用的是msflexgrid，不是mshflexgrid

Answer 7

初始化rows=1
加上这句：msflexgrid.rows=1