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
Tables("零部件清单").current(ary2(i)) = True
Else
Tables("零部件清单").current(ary2(i)) = False
End If
Next
Else
End If
“工序流程”列为多值字段，点选打勾的话，上述编码没问题，
但是，多行“工序流程”内容相同时，用重复填充列，“工序流程”列中内容显示，但逻辑列中不显示，是什么问题？
加好友 
发短信
Post By：2018/9/14 14:03:00 [显示全部帖子]
