fix dbnull error
This commit is contained in:
@@ -66,6 +66,10 @@ Public Class DB
|
|||||||
Dim sql = String.Format("SELECT VALUE FROM {0} WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", table, controlId, recordId)
|
Dim sql = String.Format("SELECT VALUE FROM {0} WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", table, controlId, recordId)
|
||||||
Dim value = Me.Scalar(sql)
|
Dim value = Me.Scalar(sql)
|
||||||
|
|
||||||
|
If (IsDBNull(valueToCompare) Xor IsDBNull(value)) Then
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
|
||||||
Return value = valueToCompare
|
Return value = valueToCompare
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user