VB.NETでLINQを使用して一括置換

Question

【環境】
VB.NET
VisualStudio2008

DataTableの値に対して、Linqを使って一括置換を行いたいです。

Dim tbl As DataTable = New DataTable("table1")

tbl.Columns.Add("ORDER_CD")
tbl.Columns.Add("PRODUCT_CD")
tbl.Columns.Add("FLG")

Dim rows As DataRow

'１行目
rows = tbl.NewRow
rows("ORDER_CD") = "111111"
rows("PRODUCT_CD") = "AAA"
rows("FLG") = 0
tbl.Rows.Add(rows)

'2行目
rows = tbl.NewRow
rows("ORDER_CD") = "222222"
rows("PRODUCT_CD") = "BBB"
rows("FLG") = 0
tbl.Rows.Add(rows)

'3行目
rows = tbl.NewRow
rows("ORDER_CD") = "333333"
rows("PRODUCT_CD") = "BBB"
rows("FLG") = 0
tbl.Rows.Add(rows)

tbl.AsEnumerable.Where(Function(r) r("PRODUCT_CD").ToString.Equals("BBB")).Select(Function(r) r("FLG") = 1).ToList()

上記の例ですと「PRODUCT_CD」が「BBB」の行の「FLG」を全て1にしたいです。

https://zero-config.com/dotnet/datatable_linq_update.html
上記ページの「一定の条件を満たす行の列値を一括置換する」を参考に書いてみたのですが、上手く置換されません。

アドバイスを頂けますと幸いです。

Comments

[退会済みユーザー]

DataTable でなければならないのですか？ List<T> 型のオブジェクトの方が扱いやすいと思いますけど。（後で、実は List<T> にしたいと言われると何なので聞いてます）

[Zuishin]

その記事を参考にするのはやめた方がいいんじゃないでしょうか。非常に誤解しやすい表現で書いてあるので、多分、思ったことと違うと思います。

私は、LINQ を使わずループで置換するのがいいと思います。LINQ 大好きな私でも、きっとそうします。

[smaeda]

おふたりとも、アドバイスを頂きありがとうございました。

SurferOnWwwさん
DataTableを使用する事が今まで多かったので、何となくそちらを使ってしまっておりました。
Listに関しても今後勉強していこうと思います。ありがとうございました。

Zuishinさん
データの件数も多くないため、今回はループで置換する事にしました。
ありがとうございました。

Answer 1

Select(Function(r) r("FLG") = 1)この部分のr("FLG") = 1が条件式として解釈されます。
C#の場合はr["FLG"] == 1とr["FLG"] = 1で区別されますがVBの場合はそうなりません。
ですので、1行で記述するのではなく

        tbl.AsEnumerable.Where(Function(r) r("PRODUCT_CD").ToString.Equals("BBB")).Select(Function(r)
                                                                                              r("FLG") = 1
                                                                                              Return r
                                                                                          End Function).ToList()

という感じで複数行で記載してください。

Comments

[smaeda]

アドバイス頂きありがとうございます。
VBではそのように解釈されてしますのですね。勉強になりました。

ただ今回はデータ数が多くないため、結局ループを使用する事にしました。
ありがとうございました。