msflexgrid　　根据条件删除行　并自动更新总行数

Dim b1 As Double
Dim b2 As Integer
Dim tt As Integer
tt = 0
Dim sg1 As Integer
For i = 0 To msg1.Rows - 1
 For b2 = 0 To tj1.Rows - 1

For j = 0 To 5

If Val(msg1.TextMatrix(i, j)) = Val(tj1.TextMatrix(b2, 0)) Then
sg1 = Val(msg1.TextMatrix(i, j))
tt = tt + 1
End If

Next j
Next b2

 
  
If tt <> Val(cb1.Text) Then　”　怎么根据前面的条件　删除行。
  　　　msg1.removeitem i  “　为什么这里提示下标越界，

End If
tt = 0
Next i

 Next i
End With
End Sub --------------------编程问答-------------------- 贴完整啊. 没前面半截怎么看得明白?

你的end with 的前半部分呢? --------------------编程问答--------------------
應該嘗試從後往前刪除

补充：VB ,  控件