例程比较新旧字符串值，如果没有新数据则维护旧数据

Question

我有一个表单，允许用户输入新数据作为记录。为了保持数据完整性，我将所有预先存在的数据（如果有）复制到记录中，并仅覆盖用户添加了新数据的那些字段。这条新记录被保存到数据库中，旧记录被删除。

我只是想找到最有效的方法来遍历每个字段：

• 确定是否有当前数据需要维护
• 要覆盖的新数据

我需要为字符串、十进制、日期和整数编写相同类型的检查（均可为空）

这是我的字符串检查

 Private Function CreateRecordforSubmission() As Business.Casualty

    Dim c As Business.Casualty = Casualty

    c.alias = CheckStringValues(c.alias, txtAlias.Text.Trim())
    Return c

End Function
Private Function CheckStringValues(OldValue As String, newValue As String) As String

    If Not OldValue Is Nothing AndAlso Not String.IsNullOrEmpty(newValue) Then

        '<-- There is NEW DATA
        If Not String.IsNullOrEmpty(newValue) Then
            Return newValue
        Else
            '<-- No NEW DATA, check of there is CURRENT DATA to maintain
            If Not OldValue Is Nothing Then
                Return OldValue
            Else
                Return String.Empty
            End If
        End If

    Else
        '<-- NO CURRENT DATA AND no changes have been made
        Return String.Empty
    End If

End Function

Answer 1

了解 CSLA 是如何做到的。对象中的每个属性都可以进行比较，如果设置器检测到更改或新值，则可以更新变量并将对象标记为已修改。

Public Property Alias As String
    Get
        Return _alias
    End Get
    Set(ByVal value As String)
        If Not String.IsNullOrEmpty(value) AndAlso _alias <> value Then
            _alias = value
            _objectWasModified = True
        End If
    End Set
End Property

If 语句可以在基类或辅助类中。

如果你想拥有其他类型的通用函数，这里有一个例子。这假设您使用的是可为空的值。

Public Property Number As Integer?
    Get
        Return _number
    End Get
    Set(ByVal value As Integer?)
        If Not IsNullOrSame(Of Integer)(_number, value)Then
            _number= value
            _objectWasModified = True
        End If
    End Set
End Property

Public Function IsNullOrSame(Of T As Structure)(ByVal oldValue As Nullable(Of T), ByVal newValue As Nullable(Of T))

    If newValue.HasValue Then
        If Not oldValue.HasValue OrElse Not oldValue.Value.Equals(newValue.Value) Then
            Return False
        End If
    End If

    Return True
End Function