求助如何扫码录入关键字自动输入相关列信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：准直器插针技术规范.png

版主，您好！

我建立了两张表格，数据源《准直器插针技术规范》其中列名称为”物料“为关键字，其余“规格型号”、“毛细管品号”、“毛细管规格”、“光纤品号”、“光纤规格”等内容需要在查询表
图片点击可在新窗口打开查看

此主题相关图片如下：准直器插针bom核对表.png

《准直器插针BOM核对表》中自动输入；

准直器插针技术规范表中的物料内容均是唯一的，

操作步骤：

1、在《准直器插针技术规范》表格中整理数据源，确保物料列中的内容无重复数据；

2、在《准直器插针BOM核对表》中物料列中扫码输入信息后（内容局来自于准直器插针技术规范表格中物料列内容）；

3、在《准直器插针BOM核对表》中“规格型号”、“毛细管品号”、“毛细管规格”、“光纤品号”、“光纤规格”列中自动输入《准直器插针技术规范》中“规格型号”、“毛细管品号”、“毛细管规格”、“光纤品号”、“光纤规格”中的内容；

谢谢！

版主，您好，我想通过表属性-事件-Datacolchanged中设置函数实现，不想用表达式列实现，谢谢您！

参考：http://www.foxtable.com/webhelp/topics/1451.htm

《准直器插针BOM核对表》-Datacolchanged

If e.DataCol.Name = "物料" Then
    If e.NewValue Is Nothing Then
        e.DataRow("规格型号") = Nothing
        e.DataRow("毛细管品号") = Nothing
……
    Else
        Dim dr As DataRow
        dr = DataTables("准直器插针技术规范").Find("[物料] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("规格型号") = dr("规格型号")
            e.DataRow("毛细管品号") = dr("毛细管品号")
……
        End If
    End If
End If

版主，您好，问题已经解决，十分感谢。

主题：求助如何扫码录入关键字自动输入相关列信息