VB.NET LINQ 一括更新について

Question

下記リストをVB.netでLinqを使って条件に一致するものを一括更新したいのですがやり方がわかりません。
（C#では出来たのですが・・・）

Public Class Test1
    Public A As String
    Public B As String
    Public C As String
   
End Class
Dim Test = New List(Of Test1)
        Dim Test1 = New Test1
        Test1.A = "1"
        Test1.B = "2"
        Test1.C = "3"
        
        Test.Add(Test1)
        Test1 = New Test1
        Test1.A = "1"
        Test1.B = "2"
        Test1.C = "3"
　　　　 Test.Add(Test1)

'こんな感じの事をしたいです　(Aが1のものをすべて2に変更する)
Test.Where(Function(x) x.A = "1").Select(Function(x) x.A = "2").ToList()

'C#ではこれでいけました
Test.Where(x => x.A == "1").Select(x => x.A = "2").ToList();

Comments

[Zuishin]

C# でもできそうにありませんが。

[SUPER_SLiNKY]

C#だと出来ることは確認しました。

[Zuishin]

そんなことはないと思います。List<string> になるはずです。
VB の場合は List<bool> になります。

[Zuishin]

可能性があるとすれば、ToList した結果を捨てて元の List を見ているということですが、VB の場合は代入ではなく比較なので元の List は変わりません。どちらにせよ Select ではなく For Each で処理するのがいいと思います。

[SUPER_SLiNKY]

わかりました、ありがとうございますm(__)m

Answer 1

射影を取得しないなら .Select() を使う意味はないです。

        Array.ForEach(Test.Where(Function(x) x.A = "1").ToArray(), Sub(x) x.A = "2")

わかりにくいならこちらで十分でしょう

        For Each a In Test.Where(Function(x) x.A = "1")
            a.A = "2"
        Next

Comments

[SUPER_SLiNKY]

わかりました、ありがとうございますm(__)m

Answer 2

どうしてもLINQで行いたいのであれば

Test.Where(Function(x) x.A = "1").Select(Function(x)
                                             x.A = "2"
                                             Return True
                                         End Function).ToList()

と複数行で記述してください。

Comments

[SUPER_SLiNKY]

わかりました、ありがとうございますm(__)m