電気ｳﾅｷﾞ的○○ mobile ver.

< ﾍﾟｰｼﾞ移動: 1 2 3 4 >

Dim newRow = Table1.NewRow

newRow("支店ID") = w_支店ID

newRow("支店名") = w_支店名

newRow("請求ID") = w_請求ID

newRow("請求合計金額") = w_請求合計金額

newRow("明細行No") = xnode3.SelectSingleNode("明細行No").InnerText

newRow("商品ID") = xnode3.SelectSingleNode("商品ID").InnerText

newRow("商品名") = xnode3.SelectSingleNode("商品名").InnerText

newRow("単価") = xnode3.SelectSingleNode("請求金額").Attributes(0).InnerText

newRow("個数") = xnode3.SelectSingleNode("請求金額").Attributes(1).InnerText

newRow("請求金額") = xnode3.SelectSingleNode("請求金額").InnerText

Table1.Rows.Add(newRow)

みたいな感じでいかがか?

ちなみに､ﾉｰﾄﾞの属性値を｢属性名｣指定で引っ張れないかは調べてない｡(Attributes(0)ではなく｢単価｣という名前で引けないか)

識者の方､ぜひご教授を｡

< ﾍﾟｰｼﾞ移動: 1 2 3 4 >

ｺﾒﾝﾄ(1)

TOPへ戻る