还是出现一样的提示:
'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
[此贴子已经被作者于2016/1/28 12:17:45编辑过]
加好友 
发短信
Post By：2016/1/28 0:24:00 [显示全部帖子]
