主题：求助，代码冲突！

If e.DataCol.Name = "name" Then
    If e.DataRow.IsNull("name") Then
        e.DataRow("order_number") = 0
    Elseif e.DataRow("order_number") = nothing then
        Dim ond As Date = Date.Now
        Dim ondt As String = cstr(Format(ond,"yyMMddHHmmss"))
        e.DataRow("order_number") = ondt
    End If
End If

'【产品费用】统计=明细总金额{跨表统计}
Select Case e.DataCol.Name
    Case  "order_number"
        If e.DataRow("order_number") <> Nothing Then
            Dim Filter As String  = "order_number = '" & e.DataRow("order_number") & "'"
            e.DataRow("income") = DataTables("crm").Compute("Sum(income)", Filter)
        End If
End Select

If e.DataCol.Name = "name" Then
    If e.DataRow.IsNull("name") Then
        e.DataRow("order_number") = 0
    Else
        Dim ond As Date = Date.Now
        Dim ondt As String = cstr(Format(ond,"yyMMddHHmmss"))
        e.DataRow("order_number") = ondt
    End If
End If

'【产品费用】统计=明细总金额{跨表统计}
Select Case e.DataCol.Name
    Case  "order_number"
        If e.DataRow("order_number") <> Nothing Then
            Dim Filter As String  = "order_number = '" & e.DataRow("order_number") & "'"
            e.DataRow("income") = DataTables("crm").Compute("Sum(income)", Filter)
        End If
End Select

如果还有问题，做个foxtable实例上传上来测试。