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 st() As String = r(c).Split(",") For Each s As String In st Dim nr As Row Dim idx As Integer = Tables("表E审批").FindRow("审批流程='" & s & "'") If idx >= 0 Then nr = Tables("表E审批").rows(idx) Else nr = Tables("表E审批").addnew End If nr("审批流程") = c nr("审批人员") = s Next End If Next
|