先移除不需要的列,在序列化,这样效率高点: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)