Select Case e.path
Case"griddata"
Dim dt As DataTable=DataTables("Table_3")
Dim arr As new JArray
For i As Integer=0 To dt.DataRows.Count-1
Dim dr As DataRow=dt.DataRows(i)
arr.add(new Jobject)
For Each dc As DataCol In dt.DataCols
If dc.Isdate Then
arr(i)(dc.name)=Format(dr(dc.name),"yyyy-MM-dd")
Else If dc.Isboolean Then
arr(i)(dc.name)=CBool(dr(dc.name))
Else If dc.Isnumeric Then
arr(i)(dc.name)=val(dr(dc.name))
Else
arr(i)(dc.name)=dr(dc.name).Tostring()
End If
Next
Next
Dim obj As new Jobject
obj("code")=0
obj("date")=arr
e.writeString(CompressJson(obj))
End Select
加好友 
发短信
Post By：2021/11/5 14:38:00 [只看该作者]
