If Tables("表E").Current IsNot Nothing Then
'判断用户单击了哪个按钮：
Dim Result As DialogResult
Result = MessageBox.Show("注意！！！删除后，数据不可恢复，是不是删除？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("表E").Current.Delete
' DataTables("表F").Delete
'' Tables("表F").Current.Delete
For Each r As Row In Tables("表F").Rows
r.Delete
Next
MessageBox.Show("删除成功！", "提示")
Else
MessageBox.Show("已取消删除！", "提示")
End If
End If
模拟关联，表E（主表）和表F（明细）模拟关联，不做下图的步骤，执行上面删除代码，无法实现同步删除，如何实现同步删除？
用下面代码，主表删除一条，明细删除一条，实际明细有10条，只删除一条，还有9条，会造成数据不一致
Tables("表E").Current.Delete
Tables("表F").Current.Delete
用下面代码，主表删除一条，明细删除10条，实际明细有10条，还把上个明细表的一条也删除，会造成数据不一致
Tables("表E").Current.Delete
For Each r As Row In Tables("表F").Rows
r.Delete
Next
加好友 
发短信
Post By：2023/7/5 13:10:00 [显示全部帖子]
