以下を1つのライナーに変換するにはどうすればよいですか?私はそれが可能であることを知っていますが、私は再びどのように考えることができないようです。おそらくselectmanyを使用していますか?
Dim claimIds = allClaimLineItems.Select(Function(i) i.ClaimLineItemId).Distinct()
For Each id As Guid In claimIds
Result.ClaimDuplicateItemRuleDataList.Add(GetClaimDuplicateItemRuleDataWithHighestDuplicateFlags(allClaimLineItems.Where(Function(i) i.ClaimLineItemId = id)))
Next
ありがとう!