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

以下是通过附表，DataColChanged事件代码设置，其通过“产品编码”输入-自动从“资料库”中提取的信息。

If e.DataCol.Name = "产品编码"Then
    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 & "'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

问题：不仅想通过“产品编码”，还想同时使用“产品名称”“通用名称”这三个，一起或随意一个，自动从“资料库”中提取的信息。谢谢！！！