weixin_40187983 2019-07-01 10:18 采纳率: 100%
浏览 579
已采纳

vb.net 将json还原成datatable-在线等

以下的代码是将datatable转成json的方法

我想再将json转回成原本的datatable请问要如何现呢? 感谢

图片说明

Public Function DataTableToJson(ByVal dt As DataTable) As String
Dim jsonBuilder As StringBuilder = New StringBuilder()
For i As Integer = 0 To dt.Rows.Count - 1
jsonBuilder.Append("{")

        For j As Integer = 0 To dt.Columns.Count - 1
            jsonBuilder.Append("""")
            jsonBuilder.Append(dt.Columns(j).ColumnName)
            jsonBuilder.Append(""":""")
            jsonBuilder.Append(dt.Rows(i)(j).ToString())
            jsonBuilder.Append(""",")
        Next

        If dt.Columns.Count > 0 Then
            jsonBuilder.Remove(jsonBuilder.Length - 1, 1)
        End If

        jsonBuilder.Append("},")
    Next

    If dt.Rows.Count > 0 Then
        jsonBuilder.Remove(jsonBuilder.Length - 1, 1)
    End If

    Return jsonBuilder.ToString()
End Function
  • 写回答

1条回答

      报告相同问题?

      相关推荐 更多相似问题

      悬赏问题

      • ¥15 opencv c++虚拟画家
      • ¥20 python 生成exe报错问题
      • ¥30 基于香农-费诺-埃利斯编码实现对英文文本的压缩和解压缩
      • ¥15 react native ios端amap问题
      • ¥15 fortran95中5个学生分不同学号求数学语文英语计算机四门课程的每名学生的平均分以及名次以及单科成绩的平均分
      • ¥30 excel vba 执行从 1 到 100 的乘法。执行结果保存成二维数组
      • ¥15 数字电子技术基础设计实验
      • ¥15 ue5运行非常卡顿,是电脑配置原因吗
      • ¥50 有没有大佬看一下关于思科的这道题怎么做
      • ¥30 求十字路口交通灯S7-200plc,今天早上八点前。