Serializzazione JSON della riga corrente di una QWTable

Last updated on 
' Il seguente frammento di codice assegna alla variabile "json" la serializzaione della riga corrente della QWTable contenuta nella variabile "d"

dim json as string
dim i as integer
Dim row As new system.collections.generic.Dictionary(Of String, Object) 

for i=1 to d.rowset.fields.count()
    row.add(d.rowset.fields(i).fieldname,d.rowset.fields(i).value)
next

json=Newtonsoft.Json.JsonConvert.SerializeObject(row)