关闭窗口时发生的错误

加上代码

Dim dr As Row = Tables("订房管理表").Current

If dr Is Nothing Then Return

还是出现一样的提示:

\'If Forms("订房管理").Opened Then
Dim dr As Row = Tables("订房管理表").Current
If dr Is Nothing Then
    Return
Else
    Dim tr As Row = Tables("入住登记表").AddNew()
    tr("入住日期")=dr("预计入住日期")
    tr("房间号")=dr("预住房间")
    tr("入住天数") = dr("预计天数")
    tr("客户名称") = dr("入住人姓名")
    tr("客源渠道") = dr("客源渠道")
    tr("订单编号") = dr("订单编号")
    DataTables("入住登记表").Save()
    tr.Locked = True
    DataTables("房间状态表").ReplaceFor("_Locked",False,"入住编号= \'" & tr("入住编号") & "\' And 订单编号 Is Null")
    DataTables("房间状态表").DeleteFor("入住编号= \'" & tr("入住编号") & "\' And 订单编号 Is Null")
    DataTables("房间状态表").ReplaceFor("入住编号",tr("入住编号"),"订单编号 =\'" & dr("订单编号") & "\'")
    If dr.IsNull("定金") = False Then
        With Tables("定金管理表")
            Dim r As Integer
            r = .FindRow("订房日期 = #" & dr("订房日期") & "# And 房间号 = \'" & dr("预住房间") & "\' And 订单编号 =\'" & dr("订单编号") & "\'")
            If r > 0 Then
                .Position = r
            End If
        End With
        Forms("定金管理").Open()
        Forms("订房管理").Close
    Else
        MessageBox.Show("请补全入住信息!","温馨提示",MessageBoxButtons.OK)
        Forms("入住登记管理").Open()
        Forms("订房管理").Close
    End If
End If
\'End If
e.Form.Close

调试

http://www.foxtable.com/help/topics/1485.htm