批量删除MSHFlexGrid里所选定的数据，数据库里是删除了但MSHFlexGrid里没有即时刷新解决方法

批量删除MSHFlexGrid里所选定的数据，数据库里是删除了但MSHFlexGrid里没有即时刷新
批量删除MSHFlexGrid里所选定的数据，数据库里是删除了但MSHFlexGrid里没有即时刷新

Private   Sub   MSHFlexGrid1_Click() '选中删除的行
With   MSHFlexGrid1
.TextMatrix(.RowSel,   0)   =   "√ "
End   With
End   Sub

Private   Sub   Command9_Click()
Dim   i   As   Long
With   MSHFlexGrid1
For   i   =   1   To   .Rows   -   1                                   '循环删除选种的行
If   .TextMatrix(i,   0)   =   "√ "   Then                       '删除选中的行
.TextMatrix(i,   0)   =   "× "  
Adodc1.Recordset.ActiveConnection.Execute   "Delete   From   Data   Where   "   &   Adodc1.Recordset.Fields(0).Name   &   "= ' "   &   Trim(MSHFlexGrid1.TextMatrix(i,   1))   &   " ' "
End   If
Next   i
End   With
End   Sub

[解决办法]
执行删除后，即执行
Adodc1.Recordset.ActiveConnection.Execute "Delete From Data Where " & Adodc1.Recordset.Fields(0).Name & "= ' " & Trim(MSHFlexGrid1.TextMatrix(i, 1)) & " ' "
后再执行下列语句：
Adodc1.Recordset.Requery
Set MSHFlexGrid1.DataSource = Adodc1
MSHFlexGrid1.Refresh

即可完成自动刷新功能


测试过了，能运行的

不要忘了给分！