我的意思是要先判断子表数据是否被锁定,如果锁定,则先进行解锁,然后再执行同时删除子表,如果只是判断是否有子表记录,如果有,确认是否删除,那子表数据如果是锁定的,就算同意删除子表记录,还是无法删除,最后还是会形成垃圾记录。
我本来设置了如下的代码用来删除子表记录,但没有成功
If Tables("父表.子表").Rows.count > 0 Then
If MessageBox.Show("该记录存在关联的子表数据,确定删除该记录和关联的子表记录?","提示",MessageBoxButtons.YesNo) = DialogResult.Yes Then
for each r As Row In Tables("父表.子表").Rows
r.Locked = False
r.Delete()
next
Tables("父表").Current.Delete()
End If
End If
结果是,子表当中的2条记录,只删除了一条,另外一条未被删除。(我推测是r在删除第一条记录后,第二条记录又变成了第一条记录,但其在循环时会去删第二条记录,但
已不存在了的原因,但奇怪的是,第二条记录的锁定状态又会被解锁了,却没有被删除成功。
[此贴子已经被作者于2019/2/12 14:05:29编辑过]