Dim cs() As String = {"校对程序_校对","审核程序_审核","批准程序_批准"}
Dim r As Row = Tables("表E").Current
For Each c As String In cs
If r.IsNull(c) = False Then
Dim i As Integer '以下代码功能,当产生第一次转换后,再转换时重复值删除
Dim nr As Row
Dim idx As Integer = Tables("表E审批").FindRow("审批流程='" & c & "'")
'If idx >= 0 Then
'nr = Tables("表E审批").rows(idx)
'Else
'nr = Tables("表E审批").addnew
'End If
Dim st() As String = r(c).Split(",")
For Each s As String In st
nr = Tables("表E审批").addnew
nr("审批流程") = c
nr("审批人员") = s
Next
End If
Next