关于MSFlexGrid批量删除的问题.

Question

Private Sub MSFlexGrid1_Click()
With MSFlexGrid1
  If .TextMatrix(.RowSel, 1) <> "" And .TextMatrix(.RowSel, 2) <> "" Then
     If .TextMatrix(.RowSel, 0) = "√" Then
       .TextMatrix(.RowSel, 0) = ""
     ElseIf .TextMatrix(.RowSel, 0) = "" Then
       .TextMatrix(.RowSel, 0) = "√"
     End If
  Else
     .TextMatrix(.RowSel, 0) = ""
  End If
End With
End Sub
Private Sub cmddel_Click()
?
End Sub单击所选行的第一列出现√或取消,单击删除按钮删除带√的行,cmddel事件该怎么写?
或有其它办法,大家各抒己见啊,谢谢!

Answer 1

With MSFlexGrid1
     for i=.rows-1 to 1
       if .TextMatrix(i, 0) = "√" then
          .remove i
       End If
     next
End With

Answer 2

With MSHFlexGrid1
        For i = .Rows - 1 To 1 Step -1
            If .TextMatrix(i, 0) = "√" Then
                .RemoveItem i
            End If
        Next
    End With

Answer 3

With MSFlexGrid1
        For i = .Rows - 1 To 1 Step -1
            If .TextMatrix(i, 0) = "√" Then
                .RemoveItem i
            End If
        Next
End With
呵呵,谢谢,终于行了,你上面用的MSHFlexGrid1,与MSFlexGrid1有什么区别?

Answer 4

两个很相似的控件，基本功能没什么不同，MSHFlexGrid功能稍微多一些。一个与DAO recordset绑定，一个与ADO recordset绑定。