主题：这是什么错误?怎么改?

此主题相关图片如下：错误提示.bmp

看看窗口关闭事件代码，对象引用的地方判断一下空值

什么操作以后报的错？

关闭窗口时发生的错误

写了什么代码？

'If Forms("订房管理").Opened Then
Dim dr As Row = Tables("订房管理表").Current
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
e.Form.Close

加上代码

 

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

 

此主题相关图片如下：错误提示1.bmp

调试

 

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