如何在MSFlexGrid中批量删除

[DeepColor]

如何在MSFlexGrid中批量删除~？！

我的代码如下，如何改？！

Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim intcount As Integer
If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
sssss = MsgBox("你还没有选择记录！", vbOKOnly + vbExclamation, "警告")
Exit Sub
End If
If MsgBox("确定要删除工序编号为 " & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & " 的记录吗？" & Chr(13) & Chr(10) & "继续会导致该工序记录的数据丢失，继续吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
txtSQL = "select * from gx where 工序编号='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & "'"
Set mrc8 = ExecuteSQL(txtSQL)
mrc8.Delete
Unload Me
End If

[DeepColor]

最好可以改成“Ctrl + 单击” 选择删除范围~

[cindytsai]

有这样一个例子：
http://search.csdn.net/Expert/topic/1964/1964353.xml?temp=2.486819E-02

[DeepColor]

好似唔得！~~~

[DeepColor]

http://community.csdn.net/Expert/topic/3705/3705205.xml?temp=.9007227
等我试下先~

[of123]

假定你已经打开的连接是 cnn：

txtSQL = "delete from gx where 工序编号='" & Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) & "'"
cnn.Execute txtSQL

因为删除操作不返回记录，所以这里没记录集什么事儿。

[DeepColor]

我的代码删除单条记录是OK的，请高手改成可以批量删除指定的记录，3Q~

[DaiLM]

好像要用循环，然后判定是否选中

[DeepColor]

http://search.csdn.net/Expert/topic/1797/1797982.xml?temp=.8950006

[w3k]

Private Sub Command1_Click()
Dim i As Long
With MSHFlexGrid1
For i = 1 To .Rows - 1 '循环删除选种的行
If .TextMatrix(i, 0) = "√" Then '删除选中的行
.TextMatrix(i, 0) = "×" '如果需要，这里变成相应的SQL句
'conn.execute "delete form 表名 where QQname='"& Trim(..TextMatrix(i,1) & "'"
End If
Next i
End With
End Sub

Private Sub Form_Load()
With MSHFlexGrid1
For i = 1 To 10
.TextMatrix(i, 1) = i '加载数据
Next i
End With
End Sub

Private Sub MSHFlexGrid1_Click() '选中删除的行
With MSHFlexGrid1
If .TextMatrix(.RowSel, 1) <> "" And .TextMatrix(.RowSel, 0) = "" Then

.TextMatrix(.RowSel, 0) = "√"
Else
.TextMatrix(.RowSel, 0) = ""
End If
End With
End Sub

[DeepColor]

还没有解决，HELP~~~~

[w3k]

批量删除可以做啊！QQ：59804834

接分先啦