批量删除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

即可完成自动刷新功能


测试过了，能运行的

不要忘了给分！