Select Case e.Path
Case "index.html"
Dim dt As DataTable = DataTables("产品库_固装家具")
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
Dim js As String = CompressJson(ja.ToString)
e.WriteString(js)
e.Save("E:\ww\index.html")
我需要给layui使用数据
End Select
[此贴子已经被作者于2023/11/2 21:37:14编辑过]
加好友 
发短信
Post By：2023/11/2 21:31:00 [显示全部帖子]
