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

我想做一个清空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 With



End Sub

'-----------------------------------------------------------------

--------------------编程问答--------------------

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 窗体和控件搞混了.
窗体可以不用传进去 --------------------编程问答-------------------- For j = 1 To frmCur.Cols - 1
--------------------编程问答-------------------- For j = 1 To frmCur.Cols - 1
..... --------------------编程问答-------------------- 更简单的 MSFLEXGRID1.Clear --------------------编程问答-------------------- 窗体还有rows和cols属性

--------------------编程问答--------------------

引用 4 楼 asftrhgjhkjlkttttttt 的回复:

更简单的 MSFLEXGRID1.Clear

这个把这所有的全清了。。我要保留固定行 --------------------编程问答--------------------

引用楼主 yz646464 的回复:

你把frmCur 窗体和控件搞混了.
窗体可以不用传进去

窗体必须传进去。 --------------------编程问答-------------------- 直接clear，固定行内容重新写入 --------------------编程问答--------------------

引用 7 楼 yz646464 的回复:

引用楼主 yz646464 的回复:
你把frmCur 窗体和控件搞混了.
窗体可以不用传进去

窗体必须传进去。

你的代码根本不能体现窗体的作用 --------------------编程问答-------------------- good@@@@@@@@@ --------------------编程问答-------------------- 窗体和控件弄混了 --------------------编程问答-------------------- MSHFlexGrid1.row=1 就行了 --------------------编程问答-------------------- --------------------编程问答-------------------- 你传form做啥呢？ --------------------编程问答-------------------- 你又固定行了？
那么简单：MSHFlexGrid1.rows=1
--------------------编程问答--------------------

引用 9 楼 jjhhgg1111 的回复:

引用 7 楼 yz646464 的回复:
引用楼主 yz646464 的回复:
你把frmCur 窗体和控件搞混了.
窗体可以不用传进去

窗体必须传进去。


你的代码根本不能体现窗体的作用

窗体没有必要传递,你想要窗体体现什么作用 --------------------编程问答--------------------

引用 12 楼 king06 的回复:

MSHFlexGrid1.row=1 就行了

固定行变白色 --------------------编程问答-------------------- .fixedrows=0
.rows=1 --------------------编程问答--------------------

引用 18 楼 king06 的回复:

.fixedrows=0
.rows=1

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

--------------------编程问答-------------------- QBColor(15) --------------------编程问答-------------------- GRID.CLEAR不就可以了么. 事后只要重新填写好表头固定行就OK --------------------编程问答-------------------- 你的固定行是什么意思？貌似不是指表头？ --------------------编程问答-------------------- 你的表达……要大家一点一点的往外抠 --------------------编程问答--------------------

引用 24 楼 li163 的回复:

你的表达……要大家一点一点的往外抠

+1

补充：VB ,  基础类