output.Show(DataTables("订单").DataRows(0)("_Identify"))
Dim names() As String = {"id", "cp", "kh", "gy", "sl", "dj", "zk", "je", "rq"}
Dim caps() As String = {"_Identify", "产品", "客户", "雇员", "数量", "单价", "折扣", "金额", "日期"}
Dim zd As New Dictionary(Of String, String)
For i As Integer = 0 To names.Length - 1
zd.Add(names(i), caps(i))
Next
'生成json数据
Dim t As DataTable = DataTables("订单")
Dim arr As New JArray '数据记录数组
For i As Integer = 0 To 1
'For i As Integer = 0 To t.DataRows.Count - 1 '遍历datatable记录
arr.Add(New jobject) '每遍历一条记录就增加一个对象，以保存记录数据
Dim r As DataRow = t.DataRows(i)
For Each key As String In zd.Keys
Output.Show(key)
Output.Show(zd(key))
t.DataCols(zd(key)).DataType.ToString
Select Case t.DataCols(zd(key)).DataType.ToString
Case "system.string"
If r.IsNull(zd(key)) Then
arr(i)(key) = ""
Else
arr(i)(key) = CStr(r(zd(key)))
End If
Case "system.boolean"
arr(i)(key) = CBool(r(zd(key)))
Case "system.datetime"
If r.IsNull(zd(key)) Then
arr(i)(key) = ""
Else
arr(i)(key) = CStr(r(zd(key)))
End If
Case "system.byte", "system.int16", "system.int32", "system.int64", "system.single", "system.double", "system.decimal"
If r.IsNull(zd(key)) Then
arr(i)(key) = 0
Else
arr(i)(key) = Val(r(zd(key)))
End If
End Select
Next
Next
Dim obj As New JObject '创建一个新对象obj
obj("total") = t.DataRows.Count '在obj中以total保存记录总数
obj("rows") = arr '在obj中以rows保存记录数组
Output.Show(CompressJson(obj)) '将obj压缩后输出
加好友 
发短信
Post By：2025/4/22 17:26:00 [只看该作者]
此主题相关图片如下：identyfy.jpg
