把狐表的DataTable一键转json字符串

发表日期: 2023-07-07

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

image.png

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)



随便看看
商务联系QQ : 2385350359

Copyright 2016-2024 江门蓬江区华越科技公司 版权所有 | 承接软件定制开发,欢迎联系
粤ICP备19148806号-5