主题：图片自动更新

 版主：

我现在有个问题，需要大家指导一下。

手头现在有几张表，一张是全部门人员的信息表，另一张是特种作业人员信息表，一张是特种设备点检表。特种作业人员只是一部分人员，是那个全部人员的子集合。

特种作业点检表是特种作业人员每天要检查的一个清单，我现在想把它做成可视化窗口，方便规范员工点检。每点击一项检查项目，右侧的图片可以自动更新到相关内容。比如点击检查项目，黑色叉车，右侧的图片会自动显示黑色叉车；点击检查项目，黄色叉车，右侧图片会自动显示为黄色叉车。

我的想法是新建一个窗口，通过下拉单选择点检项目，右侧图片可以自动更新，引导检查项目。但不知道如何做到关联引用？

有没有类似的项目？帮助里没找到类似的例子

 版主：

可能是我没有说清楚。现在的需求是从A表(特种作业取证信息表)和B表(叉车台帐)中抓取一部分信息，然后新增在C表(叉车点检记录)中。

举个例子，A表是特种作业取证表，一般只有班长和操作员。现在计划新建一个窗口录入界面，有些字段(比如车辆台帐信息)是从B表里抓取的，有些是从A表(比如员工信息)抓取的，它们形成记录后，需要记录在C表里。

这几天尝试了很多办法，主要是困难是：

1.抓屏示意如下，当选择了车间、规格和生产厂商之后，其实注册车号就已经固定了，不应该是台帐里所有设备，只有一个。通过前两天的测试，是可以实现的。这个帮助写得很清楚，http://www.foxtable.com/webhelp/index.htm?page=1416.htm。因为全部字段都在B表里。

此主题相关图片如下：snipaste_2020-02-13_17-16-50.png

2. 但现在的问题是，我还有一个组合框，就是“检查人员”，这个需要从A表里抓取。但抓取的时候，参考B组的字段限制，只抓取当前车间、当前班组的人员作为下拉框。这个功能我一直没搞定，想了很多办法都不行。上面的帮助只是当前表里可以逐次缩小下拉内容，但现在是把B、A表里的信息各抓取一部分，而且它们还是相关的。从B表里抓取了车间，那么A表抓取的时候，应该只显示当前班组里的人员，而且不是全车间人的供下拉选择。绑定列不行，试了好多遍，字段不限制，显示的是所有信息。这有点像Excel里的跨表引用，而且要跨表动态引用。

此主题相关图片如下：snipaste_2020-02-13_17-25-56.png

谢谢版主。

不好意思，编辑了好几遍，图片过长，显示不太美观。

 

 版主，非常感谢支持。

根据您的指导，我已经做出想要的界面的绝大部分内容，但仍然存在以下几个问题。

1. 员工班组选择时，逻辑有问题。

我设想的逻辑是选择单元后，再选择班组，再选择员工。选择范围是逐步缩小的，但现在设计出来的窗口，选择了班组后，会把两个单元的本班组的人员全列出来。这不是我想要的结果，因为将来每个班组要有十几个人，两个单元加起来要超过20人，这么长的下拉单，显然太啰嗦了。

此主题相关图片如下：snipaste_2020-02-17_20-34-22.png


此主题相关图片如下：组合框逻辑测试1.png

我参考的是在线帮助文件：http://www.foxtable.com/webhelp/index.htm?page=1523.htm。当然这个界面的组合框一共是7个，我把它们分成两组。第一组的三个是没有问题的，问题是第二组的4个。首先在窗口的AfterLoad事件，写如下代码：

然后在第二组第二个组合框，"班组"的Enter事件里，写入代码：

同理，第三个组合框，“检查人员”的Enter事件里，写入代码：

最后一个组合框，”工号“的Enter事件里，写入代码：

此主题相关图片如下：组合框逻辑测试2.png

但不知道哪里出了问题，选择逻辑不太正确。但界面可以正常显示，所以设置办法应该是对的。请版主指点代码是否有不合适的地方。

2. 照片无法更新。

我的想法是当上面的组合框选择完成后，就会自动显示相应位号的设备实物图片，而不是固定的某一张图。我尝试了绑定列，但不起作用，照片不显示。我在照片框的BeforeGetImage事件写了如下代码：

Dim pbx As WinForm.PictureBox = e.Sender
Dim r As Row = Tables("叉车台帐").Current
Dim str As String=r("注册车号") 
If str IsNot Nothing Then
    Select Case str
            Case "陕H00019"
                e.file="林德_陕H00019.jpg"
            Case "陕H00022"
                e.file="海斯特_陕H00022.jpg"
            Case "陕H00023"
                e.file="海斯特_陕H00023.jpg"
             Case "陕H00024"
                e.file="林德_陕H00024.jpg"
    End Select
Else
     e.File = "" '不显示图片
End If

在那个”叉车台帐“的表里，每一个位号的设备，都有一个备注列，有自己的照片，但上面的引用方法应该不对，照片不显示，更不要提自动关联了。

此主题相关图片如下：照片更新问题.png

请版主指点，谢谢。

 版主：

我原本也想传实例，但那个项目文件里，还有一些部门其它信息，有些是个人隐私，不方便放在论坛。

今天早上做了些数据处理，另存在一个测试文件里。

请查收附件。

感谢指点。

 抱歉，我自己的项目设置了密码。

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

点击浏览该文件:测试1.table

重置了，是默认”888“

 版主：

还有一个小问题，一直没搞明白。就是那个”叉车点检录入“窗口的数据会新增至”叉车点检Forklift“里边，但经过几次测试，我发现只能在当前行增加数据，再加会覆盖当前行，不会保留当前行，新增一行。

代码用的就是Addnew()，是不是要在表属性里设置只能通过窗口增加，不允许直接操作表？

 是我的问题，我看到那个代码精灵了

.position=.postion+1就好了。但需要在完成全部操作后才能执行，当前窗口不能执行。因为后面点检的详细窗口还有好几个没做出来。

但是大侠，那个图片自动更新没有好。我的思路是要在”叉车点检信息录入“那个窗口里最右侧的PictureBox里实现自动关联，就是根据注册车号自动关联显示相关的车辆。因为注册车号是类似身份证一样的唯一ID，所以逻辑是可行的。但不知道哪里设置得不对，无法显示图片，更别提自动关联了。

此主题相关图片如下：注册车号更新.png

 数据筛选显示已经成功了，我也查了函数的参数，GetComboListString(ColumnName，Filter, Sort)

大侠：

那个图片自动关联，还是没有搞定。您提供的方法好像不行