vb删除MSHFlexGrid1选中的行

一般情况下表格的序号和数据库表中的id是不一样的
所以假设你表中有一个字段名为：***，而且是第3列
mm=IIf((MSHFlexGrid1.RowSel < 1), "", MSHFlexGrid1.TextMatrix_(MSHFlexGrid1.RowSel, 3)) '返回你选中行的字段对应的值
sqlstring="select * from TB_1 where ***=mm"
adodc1.connectionstring= "Provider=Microsoft.Jet.OLEDB.4.0;Data_ Source= .\db1.mdb;Persist Security Info=False"
adodc1.recordsource=sqlstring
adodc1.recordset.delete
adodc1.redordset.updata
call ........(这里调用你将数据显示到mshflexgrid里的函数)

这样肯定可以，我就是这么做的

思路：
1，在本页面有个 变量 X，记录当前选中数据的ID
通常是在 MSHFlexGrid1_Click 事件中
X = Grid1.TextMatrix(Grid1.Row, 0) '假定你的第一列是 ID
2，通过删除按钮 直接操作数据库
dbYY.Execute "DELETE * FROM XX WHERE ID=" & X