主题：如何根据多值字段生成筛选树

 加一个表C，存储反转的值

'''
DataTables("表C").DataRows.Clear
Dim cr() As Char = {",", "，"}
For Each dr As DataRow In DataTables("表B").Select("能做工厂 is not null")
    For Each s As String In dr("能做工厂").split(cr)
        Dim ndr As DataRow = DataTables("表C").AddNew
        ndr("第一列") = s
        ndr("第二列") = dr("产品名称")
    Next
Next