If e.DataCol.Name = "审批模板信息"
If e.DataRow.IsNull("审批模板信息") = False Then
Dim json As String = e.DataRow("审批模板信息")
For Each ep As JToken In JArray.Parse(json)
e.DataRow("报销类型") = ep("item-1503317593875")("value").ToString()
e.DataRow("报销事由") = ep("item-1503317835288")("value").ToString()
e.DataRow("附件明细") = ep("item-1503317853434")("value").ToString().Replace("""","'")
e.DataRow("关联项目") = ep("item-1503317853434")("value")(0)("item-1503317853434-0-0")("value").ToString()
e.DataRow("附件") = ep("item-1503317853434")("value")(0)("item-1503317853434-0-3")("value")(0)("fileurl").ToString()
Next
End If
End If
加好友 
发短信
Post By：2018/11/26 20:25:00 [显示全部帖子]
