主题：[求助]关于多条件判定

Dim Arys3 As List(Of String)

Arys3 = DataTables("入库表").GetValues("零件号")

For Each Ary3 As String In Arys3

    Dim Val3 As Double = DataTables("入库表").Compute("Sum(入库数)","零件号='" & Ary3 & "' ")

    If Val3 > 0 Then

        Dim dr3 As DataRow = DataTables("库位统计").Find("零件号='" & Ary3 & "' ")

        If dr3 IsNot Nothing Then

            dr3("入库总数")=Val3

        End If

    End If

Next 

需要怎么修改？