dim r as row = Tables("未对账记录").Current
Dim Result As DialogResult
Result = MessageBox.Show("确定要删除 " & r("piao据号") &" 这条记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
r.Delete
r.Save
End If
-----------
Tables("未对账记录").Current.Delete 这里删除,下面的Current就已经是另外一行了
Tables("未对账记录").Current.Save