- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]上一条下一条切换印章未更新问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160771)
-- 发布时间：2021/2/21 9:05:00
-- [求助]上一条下一条切换印章未更新问题
根据帮助用PictrueBox设计了印章显示，BeforeGetImage代码如下，双击每一条记录进入编辑窗口后查看该记录没有问题：
Dim pbx As WinForm.PictureBox = e.Sender
Dim r As Row = Tables("公文督办表").Current
If r IsNot Nothing Then
If r("是否要文") = True And r("编号") = "" Then
e.File = "要文未核.png" \'显示要文未核印章图片
End If
If r("是否要文") = True And r("编号") <> "" Then
e.File = "要文已核.png" \'显示要文已核印章图片
End If
Else
e.File = "" \'不显示图片
End If
编辑窗口有上一条和下一条按钮，点击后发现：如果上一条/下一条与当前记录要文状态一致，则印章不会改变；若要文状态不一致，印章才会改变。也就是点击上下条时只判断了要文状态，未对（核文）编号进行判断，请教一下哪里出了问题？
-- 发布时间：2021/2/21 20:14:00
--
Dim pbx As WinForm.PictureBox = e.Sender
Dim r As Row = Tables("公文督办表").Current
If r IsNot Nothing andalso r("是否要文") = True Then
If r.isnull("编号") Then
e.File = "要文未核.png" \'显示要文未核印章图片
else
e.File = "要文已核.png" \'显示要文已核印章图片
End If
Else
e.File = "" \'不显示图片
End If
-- 发布时间：2021/2/22 18:59:00
--
谢谢蓝版，但问题依旧，是不是因为绑定了“是否要文”逻辑列，就只能依据它的值判断？
-- 发布时间：2021/2/22 21:00:00
--
不是的，只要切换不同的行BeforeGetImage事件就会触发，不管绑定的值有没有变化
上一条/下一条是设置的主表还是副本？
Dim pbx As WinForm.PictureBox = e.Sender
Dim r As Row = Tables("公文督办表").Current
msgbox(r("是否要文")) ‘’调试看看
msgbox(r("编号"))
If r IsNot Nothing andalso r("是否要文") = True Then
If r.isnull("编号") Then
e.File = "要文未核.png" \'显示要文未核印章图片
else
e.File = "要文已核.png" \'显示要文已核印章图片
End If
Else
e.File = "" \'不显示图片
End If