- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助如何扫码录入关键字自动输入相关列信息 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183844)
-- 发布时间：2022/11/15 22:05:00
-- 求助如何扫码录入关键字自动输入相关列信息
此主题相关图片如下：准直器插针技术规范.png
版主，您好！
我建立了两张表格，数据源《准直器插针技术规范》其中列名称为”物料“为关键字，其余“规格型号”、“毛细管品号”、“毛细管规格”、“光纤品号”、“光纤规格”等内容需要在查询表
此主题相关图片如下：准直器插针bom核对表.png
《准直器插针BOM核对表》中自动输入；
此主题相关图片如下：准直器插针bom核对表.png《准直器插针BOM核对表》中自动输入；
准直器插针技术规范表中的物料内容均是唯一的，
操作步骤：
1、在《准直器插针技术规范》表格中整理数据源，确保物料列中的内容无重复数据；
2、在《准直器插针BOM核对表》中物料列中扫码输入信息后（内容局来自于准直器插针技术规范表格中物料列内容）；
3、在《准直器插针BOM核对表》中“规格型号”、“毛细管品号”、“毛细管规格”、“光纤品号”、“光纤规格”列中自动输入《准直器插针技术规范》中“规格型号”、“毛细管品号”、“毛细管规格”、“光纤品号”、“光纤规格”中的内容；
谢谢！
-- 发布时间：2022/11/15 22:08:00
--
版主，您好，我想通过表属性-事件-Datacolchanged中设置函数实现，不想用表达式列实现，谢谢您！
-- 发布时间：2022/11/15 22:33:00
--
参考：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
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
-- 发布时间：2022/11/15 23:06:00
--
版主，您好，问题已经解决，十分感谢。