适用于vb.net的SUMIFS

Imports System.Linq

Module Module1
    Sub Main()
        ' 示例数据
        Dim data As New List(Of DataItem)()
        data.Add(New DataItem("A", 10, 20))
        data.Add(New DataItem("B", 15, 25))
        data.Add(New DataItem("A", 5, 15))
        data.Add(New DataItem("B", 20, 30))

        ' 条件
        Dim condition1 As String = "A"
        Dim condition2 As Integer = 15

        ' 使用LINQ查询计算总和
        Dim sum As Integer = data.Where(Function(item) item.Condition1 = condition1 AndAlso item.Condition2 > condition2).Sum(Function(item) item.Value)

        ' 输出结果
        Console.WriteLine("总和: " & sum)

        Console.ReadLine()
    End Sub

    ' 数据项类
    Class DataItem
        Public Property Condition1 As String
        Public Property Condition2 As Integer
        Public Property Value As Integer

        Public Sub New(condition1 As String, condition2 As Integer, value As Integer)
            Me.Condition1 = condition1
            Me.Condition2 = condition2
            Me.Value = value
        End Sub
    End Class
End Module