退出窗口时 出错了

beforeclose 代码为DataTables("进货单").RejectChanges()
DataTables("进货单明细").RejectChanges()

afterclose 没有代码

 看你的currentChanged事件的代码。

 看是否加了判断了 If Forms("窗口1").Opened Then 等

加了

代码如下

If Forms("进货单").Opened Then  \'先判断窗体是否打开,因为要调用窗体控件的
If e.Table.current("单据状态")="已审核"
Tables("进货单明细").allowedit=False
e.Table.allowedit=False
Forms("进货单").Controls("增加").enabled=False
Forms("进货单").Controls("删除").enabled=False
Forms("进货单").Controls("保存").enabled=False
Forms("进货单").Controls("审核").enabled=False
Forms("进货单").Controls("撤销").enabled=False
Else
Tables("进货单明细").allowedit=True
e.Table.allowedit=True
Forms("进货单").Controls("增加").enabled=True
Forms("进货单").Controls("删除").enabled=True
Forms("进货单").Controls("保存").enabled=True
Forms("进货单").Controls("审核").enabled=True
Forms("进货单").Controls("撤销").enabled=True
End If
    Dim pic As WinForm.PictureBox = Forms("进货单").Controls("PictureBox1")
    If e.Table.Current("单据状态") ="已审核"
        pic.Image = getimage("已审核.png")   \'若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
    End If
   If e.Table.Current("单据状态") ="未保存"
        pic.Image = getimage("未保存.png")   \'若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
    End If
   If e.Table.Current("单据状态") ="已保存"
        pic.Image = getimage("已保存.png")   \'若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
    End If
End If
  vars("ljs")=Tables("进货单").current("数量")
        vars("djh")=Tables("进货单").current("进货单号")
        forms("进货单").Controls("Label8").text=cumoney(vars("ljs"))+"   小写: " & vars("ljs")
        forms("进货单").Controls("Label1").text=vars("djh")

 最后两句

forms("进货单").Controls("Label8").text=cumoney(vars("ljs"))+"   小写: " & vars("ljs")
forms("进货单").Controls("Label1").text=vars("djh")

放在哪里比较好