LINQを使って空白セルに特定文字を入れる方法（VB.net）

[Yoichi]

こんにちは

@Akattyan

dt = dt_1.AsEnumerable.Where(Function®r(“テスト1”).ToString.Equals(“”) Or r(“ABCDE”).ToString.Equals(“ABCDE”)).Select(Function®
r(“テスト1”) = “ABCDE”
Return r
End Function).CopyToDataTable

この式ですとWhereメソッドですでにデータがある行が削除されてしまうので
期待の結果にならないと思います。やりたいことは例えば以下ではないでしょうか？

dt = dt_1.AsEnumerable.Select(Function(r)
If r("テスト1") Is Nothing OrElse String.IsNullOrEmpty(r("テスト1").ToString) Then
r("テスト1") =  "ABCDE"
End If
Return r
End Function).CopyToDataTable

for文で行っていたのですが、3000行を超えるデータの際
処理時間がかなりかかってしまったので、

Invoke code内のループでも時間かかっていますか？