Question

vb怎样删除MSHFlexGrid1指定的行

求助，为什么点删除按钮，总是删除的是第一行记录，而不是选中的那一行记录，是哪个地方错了
Private Sub MSHFlexGrid1_Click()
mm= MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
End Sub

Private Sub cmd_del_Click()
If Adodc1.Recordset.RecordCount > 0 Then
Dim aa As String
aa = MsgBox("确认删除吗", vbQuestion + vbYesNo, "提示")
If aa = vbYes Then
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\money.MDB;Persist Security Info=False"
Adodc1.RecordSource = "select * from 收入项目 where 项目='" & mm & "' "
Adodc1.Recordset.Delete
Adodc1.Recordset.Requery
Set MSHFlexGrid1.DataSource = Adodc1
End If
Else
MsgBox "没有可删除信息"
End If
End Sub

Answer 1

删除MSHFlexGrid1指定的行的语句应该是：

MSHFlexGrid1.RemoveItem 1 '删除第1行
MSHFlexGrid1.RemoveItem 2 '删除第2行

你上面的语句如果是要在数据库中删除再重写MSHFlexGrid1那么函数mm应该设置为公共变量，否则在Private Sub cmd_del_Click() 过程中 mm值应该是为空。
或直接把
Adodc1.RecordSource = "select * from 收入项目 where 项目='" & mm & "' "
改为：
Adodc1.RecordSource = "select * from 收入项目 where 项目='" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1) & "' "

请参考采纳！谢谢！

Answer 2

Adodc1.RecordSource = "select * from 收入项目 where 项目='" & mm & "' "
后面是不是也要Adodc1.Recordset.Requery下再做删除动作