Dim Result As DialogResult
Result = MessageBox.Show("您确认要删除此条记录吗?删除后将不能恢复", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
If Tables("dk_cpb.dk_lxb").rows.count >= 0 Then '判断记录是否为空成立
Tables("dk_cpb.dk_lxb").AllowEdit=True
Tables("dk_cpb.dk_lxb").Current.Locked = False
Tables("dk_cpb.dk_lxb").Current.Delete
Tables("dk_cpb.dk_lxb").AllowEdit=False
DataTables("dk_lxb").Save()
Else
Return
End If
End If
为什么最后一条记录删除后为出现“调用的目标发生了异常”提示。删是删掉了,但是有这个提示,看着不爽。