以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  picturebox代码问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65171)
--  作者：swagger
--  发布时间：2015/3/10 16:21:00
--  picturebox代码问题

目的：如果是审核显示审核图片，如果是批准显示批准图片

 

Dim pbx As WinForm.PictureBox = e.Sender
Dim r As Row = Tables("订单").Current
If r IsNot Nothing Then
    If r("审核") = True Then
        e.File = "已审核.png" \'显示已审核印章图片
    Elseif r("批准") = True Then

e.File = "已批准.png"

else
    e.File = "" \'不显示图片
    End If
Else
     e.File = "" \'不显示图片
End If

 

请问以上代码有什么问题导致不能正确显示？
--  作者：Bin
--  发布时间：2015/3/10 16:23:00
--  
你代码写在什么事件?
--  作者：Bin
--  发布时间：2015/3/10 16:26:00
--  
在窗口ALterLoad事件

Dim pbx As WinForm.PictureBox = e.form.controls("PictureBox 1")

Dim r As Row = Tables("订单").Current
If r IsNot Nothing Then
    If r("审核") = True Then
        pbx.image = getimage("已审核.png") \'显示已审核印章图片
    Elseif r("批准") = True Then

pbx.image = getimage("已批准.png")

else

 依此类推
End If
--  作者：swagger
--  发布时间：2015/3/10 16:27:00
--  
以下是引用Bin在2015/3/10 16:23:00的发言：
你代码写在什么事件?

根据帮助文件，写在PictureBox控件的BeforeGetImage事件
--  作者：Bin
--  发布时间：2015/3/10 16:28:00
--  
那得要你绑定列才可以.
--  作者：Bin
--  发布时间：2015/3/10 16:29:00
--  
搞不定就上例子吧
--  作者：有点甜
--  发布时间：2015/3/10 16:29:00
--  

 代码没有问题，你看你Images文件是否有对应的图片。

 

 若还有问题，请上传具体例子。
--  作者：swagger
--  发布时间：2015/3/10 16:35:00
--  
以下是引用Bin在2015/3/10 16:28:00的发言：
那得要你绑定列才可以.

应该是绑定问题，只能绑定审核列，怎么同时绑定批准列？
--  作者：swagger
--  发布时间：2015/3/10 16:37:00
--  
以下是引用有点甜在2015/3/10 16:29:00的发言：

 代码没有问题，你看你Images文件是否有对应的图片。

 

 若还有问题，请上传具体例子。

有对应图片的，审核为false，批准为true时，批准不能正确显示，审核为true，所有审核为fasle的订单显示批准图片
--  作者：有点甜
--  发布时间：2015/3/10 16:41:00
--  
以下是引用swagger在2015/3/10 16:37:00的发言：

有对应图片的，审核为false，批准为true时，批准不能正确显示，审核为true，所有审核为fasle的订单显示批准图片

 

只需要绑定某一列啊。不会做，就请上传例子