Dim lst2 As List(Of DingTalk.Api.Request.OapiProcessinstanceCreateRequest.FormComponentValueVoDomain) = New List (Of DingTalk.Api.Request.OapiProcessinstanceCreateRequest.FormComponentValueVoDomain)()
For Each sr As DataRow In drs
Output.Show(sr("单据号"))
'明细包含控件
'明细-单行输入框|明细-多行输入框
Dim its1 As DingTalk.Api.Request.OapiProcessinstanceCreateRequest.FormComponentValueVoDomain = New DingTalk.Api.Request.OapiProcessinstanceCreateRequest.FormComponentValueVoDomain()
its1.Name = "明细-单据号"
its1.Value = sr("单据号")
lst2.add(its1)
……
next
Dim vo10 As DingTalk.Api.Request.OapiProcessinstanceCreateRequest.FormComponentValueVoDomain = New DingTalk.Api.Request.OapiProcessinstanceCreateRequest.FormComponentValueVoDomain()
vo10.Name = "明细"
vo10.Value = FastJSON.JSON.ToJSON（lst2）
加好友 
发短信
Post By：2019/9/10 15:42:00 [显示全部帖子]
