[戻]-35405/ﾚｽ

---

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

---

魔界の仮面弁士

■No35403に返信(けいさんの記事)
> 下記のように「New Shohin With」を前もって決まった数だけ書いておけないという点があります。

No35401 の元投稿が Dim data() As Shohin という
配列宣言だったからそれを真似ただけでのことです。
別に配列でも List(Of ) でも同じことですよ。

件数が不定なら、List(Of ) の方が良いでしょうね。

' 実際は data.Add(〜) を繰り返す感じになるはず
Dim data As New List(Of Shohin)() From {
　　New Shohin With {.商品C = 10000, .商品名 = "商品A"},
　　New Shohin With {.商品C = 10001, .商品名 = "商品B"},
　　New Shohin With {.商品C = 10002, .商品名 = "商品C"}
}

'GetType を配列から List(Of ) に変更
Dim serializer As New DataContractJsonSerializer(GetType(List(Of Shohin)))
Dim ms As New MemoryStream()
serializer.WriteObject(ms, data)

TextBox1.Text = System.Text.Encoding.UTF8.GetString(ms.ToArray())


05/01 19:48
[編|消]

---

次のﾚｽ>
35401のﾚｽ
35405にﾚｽを書く
<前のﾚｽ

---

Child K-Tai