Imports System

Imports System.Linq

Imports System.Collections

Imports System.Collections.Generic

Imports System.Data

Imports System.IO

Imports System.Globalization

Imports System.Reflection

Imports System.ComponentModel.DataAnnotations

Imports System.Xml.Linq

Imports System.Xml

Imports Microsoft.VisualBasic

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

Imports NUnit.Framework

​

    ' https://stackoverflow.com/questions/68643346/adding-jobejcts-to-a-jarray-vb-net

​

Public Module DataTableJsonExtensions

    Public Function ToSpecificOrderlines(ByVal table As DataTable) As JArray

        Dim MyArray as JArray = New JArray

        For Each row As DataRow In table.Rows

            ' Possibly you need to use CultureInfo.InvariantCulture in your ToString calls

            Dim JsonObject As JObject = JObject.FromObject(

                New With {

                    Key.Orderlines = New With{

                        key.Item = row("Item").ToString, 

                        key.Quantity = row("Quantity").ToString,

                        key.Amount = row("Amount").ToString

                        }

                    }

                )

            MyArray.add(JsonObject)

        Next row

        Return MyArray

    End Function

End Module

​

    Public Module TestClass 

​

        Friend Sub Test()

            Dim table As DataTable = New DataTable() 

​

            ' You need to show the contents of table for us to help you further

            ' I filled the table with dummy values corresponding to your required JSON.

            table.Columns.Add("Item", GetType(string))

            table.Columns.Add("Quantity", GetType(double))

            table.Columns.Add("Amount", GetType(decimal))

            Dim newRow As DataRow = table.NewRow()

            newRow("Item") = "Table"

            newRow("Quantity") = 5

            newRow("Amount") = 50

            table.Rows.Add(newRow)

            ' End of code I added to initialize table

​

            Dim myArray as JArray = DataTableJsonExtensions.ToSpecificOrderlines(table)

​

            Console.WriteLine(myArray)

        End Sub 

    End Module

​

    Public Module Module1   

        Public Sub Main()

            Console.WriteLine("Environment version: " & Environment.Version.ToString())

            Console.WriteLine("Json.NET version: " & GetType(JsonSerializer).Assembly.FullName)

            Console.WriteLine("")

​

            Try

​

                TestClass.Test()

​

            Catch ex as Exception

​

                Console.WriteLine("Unhandled exception: ")

                Console.WriteLine(ex)

                Throw

​

            End Try

        End Sub 

    End Module

​

​