请教老师，下列代码会遇到多值字段的审核，应该怎样调整，比如：
校对 老马，老张 审核 老刘，老王 批准 老吴
校对 老马
校对 老张
审核 老刘
审核 老王
批准 老吴
Dim cs() As String = {"设计","校对","审核","批准"}
Dim r As Row = Tables("工作策划操作_Table3").Current 'SQL工作策划副表
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("工作策划副表审核").FindRow("审批流程='" & c & "'")
Dim st() As String = cs(c).Split(",")
If idx >= 0 Then
nr = Tables("工作策划副表审核").rows(idx)
Else
nr = Tables("工作策划副表审核").addnew
End If
nr("审批流程") = c
nr("审批人员") = r(c)
End If
Next
[此贴子已经被作者于2016/4/29 9:45:48编辑过]
加好友 
发短信
Post By：2016/4/29 9:45:00 [显示全部帖子]
