摘要：整理了如何在 VB.NET 中处理 DataRow 字段的计算与验证，包括收款金额与日期的关联、欠款计算、日期加天数逻辑，以及空值处理。

收款金额与日期关联

      在处理收款金额与对应日期时，可以利用 IsNull 方法检查字段是否为空。例如：

If c="收款4_日期" AndAlso e.DataRow.IsNull(c) Then
    e.DataRow("收款4_金额") = Nothing
End If

      如果需要批量处理，可以用循环简化代码：

For i As Integer = 4 To 10
    Dim columnName As String = "收款" & i & "_日期"
    If c = columnName AndAlso e.DataRow.IsNull(columnName) Then
        e.DataRow("收款" & i & "_金额") = Nothing
        Exit For
    End If
Next

欠款计算

      根据多个收款金额计算欠款，可以如下实现：

If c = "收款1_金额" Or c = "收款2_金额" Or ... Or c = "收款10_金额" Or c = "货款金额" Then
    Dim totalPayment As Decimal = 0D
    For i As Integer = 1 To 10
        Dim amount As Object = e.DataRow("收款" & i & "_金额")
        If Not Convert.IsDBNull(amount) Then
            totalPayment += Convert.ToDecimal(amount)
        End If
    Next
    Dim huokuan As Decimal = If(Convert.IsDBNull(e.DataRow("货款金额")), 0D, Convert.ToDecimal(e.DataRow("货款金额")))
    e.DataRow("欠款") = huokuan - totalPayment
End If

日期加天数

      将开票日期加上月结天数得到到期日期：

If e.DataRow.IsNull("开票_日期") OrElse e.DataRow.IsNull("月结天数") Then
    e.DataRow("到期日期") = Nothing
Else
    Dim invoiceDate As DateTime = Convert.ToDateTime(e.DataRow("开票_日期"))
    Dim days As Integer = Convert.ToInt32(e.DataRow("月结天数"))
    e.DataRow("到期日期") = invoiceDate.AddDays(days)
End If

      还可以加入异常处理以提高健壮性：

Dim invoiceDate As DateTime
Dim creditDays As Integer

If e.DataRow.IsNull("开票_日期") OrElse e.DataRow.IsNull("月结天数") OrElse _
   Not DateTime.TryParse(e.DataRow("开票_日期").ToString(), invoiceDate) OrElse _
   Not Integer.TryParse(e.DataRow("月结天数").ToString(), creditDays) Then

    e.DataRow("到期日期") = Nothing
Else
    e.DataRow("到期日期") = invoiceDate.AddDays(creditDays)
End If