主题：有没有办法得到 {"函数名","代码"} 这样的数据呢？

Dim jo As new jobject
jo(Tables("内部函数").cols(0).name) = Tables("内部函数").cols(1).name
output.show(jo.Tostring())

输出得到：

{
  "函数名": "代码"
}

我想得到的是 ： {"函数名","代码"}

Dim Cols1() As String = {"函数名","代码"}
Dim s As String
For Each dr As DataRow In DataTables("内部函数").DataRows
    For i As Integer = 0 To Cols1.Length -1
        If s > "" Then s = s  & "|"
        If dr.IsNull(Cols1(i)) = False Then
            s =  s  & dr(Cols1(i))
        End If
    Next
    s = s.TrimStart("|")
    FileSys.WriteAllText("d:\JobPosition.txt", s & vbcrlf , True, Encoding.Default)
Next

Dim jo As new jobject
jo(Tables("内部函数").cols(0).name) = Tables("内部函数").cols(1).name
s=jo.Tostring())

output.show(s)

输出得到：

{
  "函数名": "代码"
}

这样的josn格式文件

我想得到的是 ：

内部函数表里面有两个字段列：函数名和代码

我想遍历这个内部函数表的列名，形成 {"函数名","代码"}   {}里面的是  {"列名1"，"列名……"}

然后赋值给下面的cols（）

Dim Cols1() As String = {"函数名","代码"}