主题：退出窗口时 出错了

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

 

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

 13楼的代码写在什么事件？如果没有触发此事件，肯定是不会改变的。

写在按钮 保存里

那就是不满足对应的条件啊，你加入msgbox看一下对应的值是什么msgbox(Tables("销售单").Current("单据状态"))

搞定了 我自己搞错了