主题：合成json

 参考代码

Dim dt As DataTable = DataTables("表b")
Dim str As String = ""
For Each dr As DataRow In dt.Select("")
    str &= "["
    str &= "'" & dr("第一列") & "',"
    str &= dr("第二列") & ","
    str &= dr("第三列") & "],"
Next
str = str.trim(",")
msgbox(str)