[戻]-35406/ﾚｽ

---

Re[4]: グリッド表示レコードをJSONに変換

---

けい

■No35405に返信(魔界の仮面弁士さんの記事)

ありがとうございます。
以下のコードでできました。


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim data As New List(Of Shohin)
Dim serializer As New DataContractJsonSerializer(GetType(List(Of Shohin)))
Dim ms As New MemoryStream()

data.Add(New Shohin With {.商品C = 10000,.商品名 = "商品Ａ"})
data.Add(New Shohin With {.商品C = 10001,.商品名 = "商品Ｂ"})
data.Add(New Shohin With {.商品C = 10002,.商品名 = "商品Ｃ"})

serializer.WriteObject(ms, data)
TextBox1.Text = Encoding.UTF8.GetString(ms.ToArray())

End Sub


実際には、レコードの数だけ、
data.AddをFor〜Nextループさせます。

解決できました。
まことにありがとうございました。
勉強になりました。
今後ともどうぞよろしくお願い申し上げます。

05/02 11:59
[編|消]

---

次のﾚｽ>
35401のﾚｽ
35406にﾚｽを書く

---

Child K-Tai