主题：[求助]审核状态图标出现叉叉为什么？

问题：我按照帮助文件里做了“审核”的状态的图片显示。但是当表经过筛选查询后，图片就出现“叉叉”，这是为什么？

比较奇怪的是：筛选后，如果审核状态都是已审核，图片就一直“叉叉”，当选择一条“未审核”的行，图片又筛选出来了。

如何避免这个“叉叉”呢？请老师指导一下。谢谢！

此主题相关图片如下：问题.gif

BeforeGetImage事件代码：

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" '显示已审核印章图片
    Else
        e.File = "" '不显示图片
    End If
End If

只要我不对窗口上方的主表筛选，图片正常的，我选择审核的行，图片就会显示“核”，未审核的行，图片就不显示，但问题是，只要我对主表做了筛选，就出现图片“叉叉”。

我的图片就在项目文件的IMAGE里呀。如何调试检查？

不明白呀？能具体点吗？麻烦了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.zip

 

BIN老师，我把例子传上来了，您帮我看下。

LSY，没有改进啊，只要查询一下，图片就成一个“叉”了？

可以了，谢谢！

 

为什么需要在筛选后，选择区域两次呢？

Tables("生产入库主表").Select(0,1)    ‘ 选择第一行第二列
Tables("生产入库主表").Select(0,0)    ’选择第一行第一列

 

 

早上我自己用一次，不行。

If Tables("生产入库主表").Rows.Count > 0 Then
Tables("生产入库主表").Select(Tables("生产入库主表").Rows.Count-1,0)
End If

 

为什么Select要做两次，才能成功？？？

我疯了，这个例子是行了，但是写进我的项目里不行。

主要原因是：条件1：我的表状态是锁定的。所以以下方法失效的。

 

生产入库主表_PrepareEdit

 

If Forms("图片显示技巧").Opened Then

    If e.Row("审核否") Then

        Forms("图片显示技巧").Controls("PictureBox1").Image = GetImage("已审核.png")

    Else

        Forms("图片显示技巧").Controls("PictureBox1").Image = GetImage("")

    End If

End If

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:图片显示技巧（表是锁定的）.zip

条件2：因为是生产入库主表，下面其实还带着明细表，所以例子窗口中的表其实有条件：不作为副本表。

刚才那个方法不行啊。因为我的表是在锁定状态的，这个条件刚没有加上去。