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

参考：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

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