NULL可能なオブジェクトは、私はこの単純な例で再現している大きなコードブロックを持っている

Question

VB値を持っている必要があります。

はevalの一部のためのクイックフィックスはあります -

evalcheck = aEntityId = bEntityId And aCheckNumber = bCheckNumber 

Answer 1

あなたが本当に読みやすくするために括弧を使用する必要があります。それでも比較は醜いです。

Private Function NullableIntsEqual(ByVal a As Integer?, ByVal b As Integer?) As Boolean 
    If ((a IsNot Nothing And b IsNot Nothing) AndAlso (a = b)) Or (a Is Nothing And b Is Nothing) Then 
     Return True 
    Else 
     Return False 
    End If 
End Function 

がevalcheckラインが

evalcheck = NullableIntsEqual(aEntityId, bEntityId) And NullableIntsEqual(aCheckNumber, bCheckNumber) 

になりますけれども

If ((aEntityId IsNot Nothing And bEntityId IsNot Nothing) AndAlso (aEntityId = bEntityId)) Or (aEntityId Is Nothing And bEntityId Is Nothing) Then 
    If ((aCheckNumber IsNot Nothing And bCheckNumber IsNot Nothing) AndAlso (aEntityId = bEntityId)) Or (aCheckNumber Is Nothing And bCheckNumber Is Nothing) Then 
     evalcheck = True 
    Else 
     evalcheck = False 
    End If 
Else 
    evalcheck = False 
End If 

私はこの方法でよりよい好みます