1.狐表集成的Newtonsoft的Json库，官方是有一个把Datatable转json字符串的功能，今天在chatgpt里发现了，分享出来

Dim dt As DataTable = DataTables("报价")
Dim s As String = JsonConvert.SerializeObject(dt.BaseTable)
Output.Show(s)

2.如果想进一步修饰，可以把这个数组读取为json对象，再去修改

例如，删掉那个3个多余的System_xxx字段，代码如下

Dim dt As DataTable = DataTables("temu与tk风格转换")
Dim s As String = JsonConvert.SerializeObject(dt.BaseTable)

Dim ja As JArray = JArray.Parse(s)
For Each jo As JObject In ja
    jo.Remove("System_Sort_Temporary")
    jo.Remove("System_Filter_Temporary")
    jo.Remove("System_Filter_Unique")
Next

Output.Show(ja.ToString)

3.版主补充了一种提前去掉3个System字段的方法

Dim dtCopy As System.Data.DataTable = DataTables("报价").BaseTable.Copy
dtCopy.Columns.Remove("System_Sort_Temporary")
dtCopy.Columns.Remove("System_Filter_Temporary")
dtCopy.Columns.Remove("System_Filter_Unique")
Dim s As String = JsonConvert.SerializeObject(dtCopy)