主题：错误提示：未将对象引用设置到对象的实例

 在beforeClose事件加入代码

With  Tables("调拨表")
    If  .Current.IsNull("资产编号") OrElse .Current.IsNull("调拨时间") OrElse  _
        .Current.IsNull("调入单位") OrElse  .Current.IsNull("调出单位")  Then
        If MessageBox.Show("当前记录信息填写不全,是否放弃?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            Tables("调拨表").Current.Reject()
        Else
            e.Cancel = True
            Return
        End If
    End If
End With
SystemReady = False
If Tables("调拨表").Current.DataRow.RowState <> DataRowState.Unchanged Then
    If MessageBox.Show("当前记录已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        Tables("调拨表").Current.Save()
    Else
        Tables("调拨表").Current.Reject()
    End If
End If
SystemReady = True