这样为什么不行？????????????????????????????

Question

我想做一个清空MSHFlexGrid的函数，以下报错????
Call kong(Form151, MSHFlexGrid1) '清空
'清空MSHFlexGrid-------------------------------------------------
Public Sub kong(frmCur As Form, gridCur As Object)
With gridCur
    For i = 1 To frmCur.Rows - 1 '清空MSHFlexGrid1
       For j = 0 To frmCur.Cols - 1
           frmCur.TextMatrix(i, j) = ""
       Next
    Next
End WithEnd Sub
'-----------------------------------------------------------------

Answer 1

Public Sub kong(gridCur As Object)
With gridCur
    For i = 1 To .Rows - 1 '清空MSHFlexGrid1
       For j = 0 To .Cols - 1
           .TextMatrix(i, j) = ""
       Next
    Next
End With
你把frmCur 窗体和控件搞混了.
窗体可以不用传进去

Answer 2

For j = 1 To frmCur.Cols - 1

Answer 3

For j = 1 To frmCur.Cols - 1
.....

Answer 4

直接clear，固定行内容重新写入

Answer 5

你又固定行了？
那么简单：MSHFlexGrid1.rows=1

Answer 6

固定行清空
       For j = 0 To gridCur.Cols - 1
           gridCur.TextMatrix(0, j) = ""
       Next
变颜色
       gridCur.backcolorfixed=gridCur.backcolor ' 要白 =QBColor(7)

Answer 7

GRID.CLEAR不就可以了么. 事后只要重新填写好表头固定行就OK