改一下代码吧。
Dim pbx As WinForm.PictureBox = e.SenderDim r As Row = Tables("表A").CurrentIf r IsNot Nothing Then If r("审核") = True Then e.File = "PHONE.png" '显示已审核印章图片 Else e.File = "" '不显示图片 End IfEnd If