主题：[求助]筛选表单里归属分类

一般这样，循环这些值 美国、新疆、东北、北京、上海......判断商品名称是否包含这些地名。

Dim dt As  DataTable=DataTables("产品表")
Dim cds As String()={"美国","新疆","东北","北京","上海"}

For Each dr As  DataRow In dt.DataRows
    Dim s As String = ""
    For Each cd As String In cds
        If dr("商品名称").contains(cd) Then
            s = cd
            Exit For
        End If
        dr("产地") = s
    Next
Next