瑞星卡卡安全论坛

我用的是通过文本框向MSHFLEXGRID添加数据。
如果开始的时候添加没有问题。
但是当我将表中的数据删除然后将多余的行删除。就出现问题了，具体问题是不能再是点击COMMAND就添加一行，需要点击原来添加的行数那么多次后才能添加新的数据。
请问这个问题怎么解决啊？
'添加的代码
'将TEXT中的值送到MS中
Private Sub fuyu()
Dim n As Double
Dim m As Double
Dim str As String
m = MSHFlexGrid1.rows
MSHFlexGrid1.Refresh

If MSHFlexGrid1.TextMatrix(1, 1) = "" Then
n = 1

MSHFlexGrid1.TextMatrix(n, 0) = n
MSHFlexGrid1.TextMatrix(n, 1) = Trim(Text1.Text)
MSHFlexGrid1.TextMatrix(n, 2) = Trim(Text2.Text)
MSHFlexGrid1.TextMatrix(n, 3) = Trim(Text7.Text)
MSHFlexGrid1.TextMatrix(n, 4) = Trim(Text3.Text)
MSHFlexGrid1.TextMatrix(n, 5) = Trim(Combo1.Text)
MSHFlexGrid1.TextMatrix(n, 6) = Trim(Text8.Text)
MSHFlexGrid1.TextMatrix(n, 7) = Trim(Text4.Text)
MSHFlexGrid1.TextMatrix(n, 8) = Trim(Text5.Text)
MSHFlexGrid1.TextMatrix(n, 9) = Trim(Text14.Text)
MSHFlexGrid1.TextMatrix(n, 10) = Format(Time, "hh:nn:ss")
MSHFlexGrid1.TextMatrix(n, 11) = Format(Date, "yyyy-mm-dd")
MSHFlexGrid1.TextMatrix(n, 12) = Trim(Text13.Text)
MSHFlexGrid1.TextMatrix(n, 13) = Trim(Combo2.Text)
MSHFlexGrid1.TextMatrix(n, 14) = Trim(Text6.Text)
MSHFlexGrid1.TextMatrix(n, 15) = Trim(Text9.Text)
MSHFlexGrid1.TextMatrix(n, 16) = Trim(Text10.Text)
MSHFlexGrid1.TextMatrix(n, 17) = Trim(Text12.Text)
MSHFlexGrid1.TextMatrix(n, 18) = Trim(Text11.Text)

Exit Sub
End If

str = m & vbTab & Trim(Text1.Text) & vbTab & Trim(Text2.Text) & vbTab & Trim(Text7.Text) & vbTab & Trim(Text3.Text) & vbTab & Trim(Combo1.Text) & vbTab & Trim(Text8.Text) & vbTab & Trim(Text4.Text) & vbTab & Trim(Text5.Text) & vbTab & Trim(Text14.Text) & vbTab & Trim(Label11.Caption) & vbTab & Trim(DTPicker1) & vbTab & Trim(Text13.Text) & vbTab & Trim(Combo2.Text) & vbTab & Trim(Text6.Text) & vbTab & Trim(Text9.Text) & vbTab & Trim(Text10.Text) & vbTab & Trim(Text12.Text) & vbTab & Trim(Text11.Text)

MSHFlexGrid1.AddItem str
End Sub
'删除的代码是
'清除所有的数据和表格
Dim n As Double
Dim m As Double
n = MSHFlexGrid1.rows
MSHFlexGrid1.Clear
For n = MSHFlexGrid1.rows to 2 step -1
MSHFlexGrid1.RemoveItem (n)
Next
Loop