主题：图片自动更新

 明白了，是我的逻辑有问题。

计划将新值“正常”写入本单元格，所以旧值肯定是“异常”，同时判断“点检结论”是否为空。

这个问题已经完美解决。

但这个表控件，我其实还有个小问题，昨天没好意思问。就是我想在“点检结果”列启用图片字典，正常显示绿色的对号，异常就显示红色的叉叉。按照帮助设置好了图片字典，但实际操作中，勾选了之后，单元格仍然是空白，不显示。

情况见下面的截屏。

此主题相关图片如下：图片字典1.png


此主题相关图片如下：图片字典3.png


此主题相关图片如下：图片字典2.png

 

设置“仅显示图片”，就下拉选择后，单元格是空白，不显示输入值。

此主题相关图片如下：图片字典5.png

 哦，明白，谢谢版主。自己捣鼓了半天，原来系统不支持。还是多请教。

现在还剩下另外两个功能。

1. 因为使用了表控件，因此实际上每次点检的信息并没有保存，这一次会刷新上一次的。实际操作中，也可以接受这样的做法，但点检记录表中必须要有一列来记录每次点检是否正常。表控件中的“点检结果”列包含了若干行点检结果，最终只能有一个数据写个点检表里。其实逻辑也很简单，只要有一个行是“异常”，那么“点检结果”只能是异常，否则就是正常。

因为不知道怎么通过表控件来做，我额外用了单选按钮RadioButton，将值绑定至“叉车点检”表中的“点检结果”列中。这一列的数据类型是逻辑值，但测试时，系统提醒错误，而且看起来还比较严重。

此主题相关图片如下：绑定列1.png


此主题相关图片如下：绑定列5.png

此主题相关图片如下：索引损坏.png

请版主指教哪个地方做得不对？

谢谢。

 最后一个功能，就是要如果点检异常，那么备注信息栏里必须要有文字，不允许为空。

我根据您的指示，尝试使用了使用TextBox的Validate事件中写入代码：

效果是有的，但不我想要的。因为这个设置逻辑，必须首先要在“备注信息”里写入内容，保证内容非空，然后才能操作其它控件。

实际使用中，这个肯定是最后一个要输入的，因为你只要检查完了前面的项目，才知道是不是正常，需不需要写入备注。一开始就强行要求写入，逻辑上不合理。

不知道有没有可能实现这样的功能？

变通的办法是弹出对话框，让操作员先在备注信息里输入正常，点检结束后再根据情况改正。但这样的办法很别扭

 版主：

我尝试新增一个按钮，在Click事件中写如下代码，但好像不起作用，在点检结果为“异常”时，即使“备注信息”为空，点击按钮后，仍然执行了保存，并没有弹出对话框提醒。

此主题相关图片如下：逻辑判断.png

感谢指点，谢谢。

抱歉，版主，是我的失误。我在“数据录入”窗口新增了“保存修改”按钮，Click事件中写入如下代码：

但仍然不起作用，没有在“备注信息”中输入内容，后台仍然可以将内容至保存记录表，没有提示对话框。后台记录数据这个我能理解，关键是没有弹出对话框，也没有强制不能关闭当前页面，这个比较糟糕。

即使单独使用测试代码，仍然不能弹出对话框：

With Tables("Forklift")
    If e.Form.Controls("备注信息").text="" Then
        MessageBox.show("备注信息不能为空")
    Else
        .Current.Save()
    End If
End With

而且在测试中，我发现尽管点击了“异常”单选按钮，但当鼠标焦点移到至“备注信息”文本框后，选择就消失了，显示两个单选按钮都没有选中。是不是因为这个原因，所以程序就没有执行逻辑？

此主题相关图片如下：单击按钮1.png

请版主指点。

谢谢。

 版主：

方案二亲测有效，方案一不行。

感谢支持，后续的工作有眉目了，谢谢。