根据两列条件选择一个 DataRow

Question

我有一个数据表，我知道它一开始是空的，但是当我填充它时，我无法根据两列条件将数据行从其中取出，因此它的数量增加了一倍（或更多）行数。

我可能会犯这个错误，但我的目标是在满足 2 个条件时检查数据表中是否存在该行，如果存在则获取该行并对其进行修改。

Dim qryB = From drw As DataRow In oDT_Signals.Rows
           Where drw("SG").Equals(sgrp) AndAlso drw("EP").Equals(srchPt)
           Select drw

Dim rslt = qryB.SingleOrDefault

If IsNothing(rslt) Then
    ed.WriteMessage("Row does not exist")
    oDT_Signals.Rows.Add(0, 0, sgrp, rw.sPt, PtList.IndexOf(rw.sPt), rw.ePt, PtList.IndexOf(rw.ePt), "NIL", rw.Len, 0, rw.Phases, rw.Size, rw.Core, rw.Ins, rw.Temp, rw.Table, "NIL",
                            "NA", "NA", rw.mVAm, ldVal, 0, 0, rw.Zs, 0, 0, rw.ePt.X, rw.ePt.Y, rw.mVtest, 0, 0, rw.Ztest, 0, 0)

Else
    ed.WriteMessage("Row does exist")
    Dim dr As DataRow = qryB.First
    dr("LOAD") = Math.Round(ldVal + dr("LOAD"), 2, MidpointRounding.AwayFromZero)
End If

问题是 rslt 总是什么都不是，当我知道事实并非如此时。有没有人能够帮助我确定我做错了什么，总是添加行？控制台一直说“行不存在”。

Answer 1

我没有测试过，但我相当肯定问题在于您使用了Object.Equals 方法，该方法将测试引用是否相等。如果您对价值平等感兴趣，请对此进行测试。改变这个：

Where drw("SG").Equals(sgrp) AndAlso drw("EP").Equals(srchPt)

到这样的事情：

Where drw.Field(Of String)("SG") = sgrp AndAlso drw.Field(Of String)("EP") = srchPt

如果列不包含Strings，请更改Field 调用的泛型类型。