求助：自动从“资料库”中提取的信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name
    Case "产品编码", "产品名称", "通用名称"
        Dim nms() As String = {"分类","规格型号","单价元","ID","产地","注册证号","单位","备注"}
        If e.NewValue Is Nothing Then
            For Each nm As String In nms
                e.DataRow(nm) = Nothing
            Next
        Else
            Dim dr As DataRow
            dr = DataTables("商品资料").Find("产品编码 = '" & e.newvalue & "' or 产品名称 = '" & e.newvalue & "' or 通用名称 = '" & e.newvalue & "'")
            If dr IsNot Nothing
                For Each nm As String In nms
                    e.DataRow(nm) = dr(nm)
                Next
            End If
        End If

End Select

主题：求助：自动从“资料库”中提取的信息