主题：多值字段问题

改成

Dim ary1() As String = {"外购","锻件","铸件","下料","壳体制作","机加工","镀层","零件表面无损探伤","组合焊接","标识","热处理","焊接件无损探伤","部件机加工","试装配","固溶","酸洗","装配","内部水压试验","喷砂油漆","打包装箱"}
Dim ary2() As String = {"外购","锻件","铸件","下料","壳体制作","机加工","镀层","零件表面无损探伤","组合焊接","标识","热处理","焊接件无损探伤","部件机加工","试装配","固溶","酸洗","装配","内部水压试验","喷砂油漆","打包装箱"}
If e.DataCol.Name = "工序流程" Then
    Dim str As String = e.DataRow("工序流程")
    Dim ary3 = str.split("|")
    For i As Integer = 0 To ary1.length-1
        Dim idx As Integer = array.indexof(ary3, ary1(i))
        If idx >= 0 Then
            e.DataRow(ary2(i)) = True
        Else
            e.DataRow(ary2(i)) = False
        End If
    Next
End If