主题：退出窗口时 出错了

退出窗口时 出错了

 

 

此主题相关图片如下：qq图片20131105200601.jpg

DataTables("进货单").RejectChanges()
DataTables("进货单明细").RejectChanges()
e.Form.close()

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

 

 

afterclose 没有代码

加了

 

代码如下

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")

放在哪里比较好

 

按钮里代码如下 ，点了后窗口图片没有刷新

 

If  Tables("进货单").current("单据状态")="已审核"
    messagebox.show("已经审核,不需重复审核","信息提示")
    Return
End If
If  Tables("进货单").Current IsNot Nothing Then
    If Tables("进货单").current("单据状态")="已保存"
        Tables("进货单").current("单据状态")="已审核"
        Tables("进货单").current.save()
        messagebox.show("审核完成","信息提示")
    Else
        messagebox.show("单据未保存 请保存后再审核","信息提示")
    End If
End If

 

 

 

If Tables("进货单").Current Is Nothing  Then
    Return
Else
Tables("进货单").current("单据状态")="已保存"
Tables("进货单明细").save()
Tables("进货单").save()
End If
If Forms("进货单").Opened Then  '先判断窗体是否打开,因为要调用窗体控件的
    Dim pic As WinForm.PictureBox = Forms("进货单").Controls("PictureBox1")
    If Tables("销售单").Current("单据状态") ="已审核"
        pic.Image = getimage("已审核.png")   '若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
    End If
   If Tables("销售单").Current("单据状态") ="未保存"
        pic.Image = getimage("未保存.png")   '若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
    End If
   If Tables("销售单").Current("单据状态") ="已保存"
        pic.Image = getimage("已保存.png")   '若已审核,则显示对应图片,图片要放到images文件夹,否则就要指定完整路径
    End If
End If

写在按钮 保存里

搞定了 我自己搞错了