删除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) & "' "
请参考采纳!谢谢!