主题：如何在手机上提交多条数据到企业微信审批流程？

单条提交已经实现。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:json生成求助.txt

Dim jo As New JObject
Dim ja As New JArray
Dim drs As List(of DataRow) = DataTables("表A").Select("")
jo("count") = drs.count
jo("data") = ja

Dim i As Integer = 0
For Each dr As DataRow In drs
    ja.Add( new jobject)
    ja(i)("第一列") = dr("第一列").tostring
    ja(i)("第二列") = dr("第二列").tostring
    i += 1
Next

可以帮忙举一下例吗？我不知道怎么解决，谢谢

谢谢老师指点！