主题：[求助]

If e.DataCol.Name = "入库日期" OrElse e.DataCol.Name = "交piao日期" Then
    If e.DataRow.IsNull("入库日期") OrElse e.DataRow.IsNull("交piao日期") Then
        e.DataRow("延迟时间") = Nothing
    Else
        Dim sp As TimeSpan = e.DataRow("交piao日期") - e.DataRow("入库日期")
        e.DataRow("延迟时间") = sp.TotalDays
    End If
Else If e.DataCol.Name = "出库单位" OrElse e.DataCol.Name = "入库单位" OrElse e.DataCol.Name = "执行时间" OrElse e.DataCol.name = "出库日期" Then
    Dim fdr As DataRow = DataTables("区间运价").Find("出库单位 = '" & e.DataRow("出库单位") & "' and 入库单位 = '" & e.DataRow("入库单位") & "' and 执行时间 >= #" & e.DataRow("出库日期") & "#")
    If fdr IsNot Nothing Then
        e.DataRow("运费单价") = fdr("运费单价")
    Else
        e.DataRow("运费单价") = Nothing
    End If
End If

应该是出库日期>=执行时间，我刚把  and 执行时间 >= #" & e.DataRow("出库日期") & "#") 修改为and 出库日期 >= #" & e.DataRow("执行时间") & "#"),提示运行错误，调用目标发生了异常

 

Dim fdr As DataRow = DataTables("区间运价").Find("出库单位 = '" & e.DataRow("出库单位") & "' and 入库单位 = '" & e.DataRow("入库单位") & "' and 执行时间 <= #" & e.DataRow("出库日期") & "#")

供销明细_DataColChanged

 

If e.DataCol.Name = "入库日期" OrElse e.DataCol.Name = "交piao日期" Then

    If e.DataRow.IsNull("入库日期") OrElse e.DataRow.IsNull("交piao日期") Then

        e.DataRow("延迟时间") = Nothing

    Else

        Dim sp As TimeSpan = e.DataRow("交piao日期") - e.DataRow("入库日期")

        e.DataRow("延迟时间") = sp.TotalDays

    End If

Else If e.DataCol.Name = "出库单位" OrElse e.DataCol.Name = "入库单位" OrElse e.DataCol.Name = "执行时间" OrElse e.DataCol.name = "出库日期" Then

    Dim fdr As DataRow = DataTables("区间运价").Find("出库单位 = '" & e.DataRow("出库单位") & "' and 入库单位 = '" & e.DataRow("入库单位") & "' and 执行时间 >= #" & e.DataRow("出库日期") & "#" and 截止日期 <= #" & e.DataRow("出库日期") & "#")

    If fdr IsNot Nothing Then

        e.DataRow("运费单价") = fdr("运费单价")

    Else

        e.DataRow("运费单价") = Nothing

    End If

End If

<!--EndFragment-->-------------------------------------提交提示表达式错误

If e.DataCol.Name = "入库日期" OrElse e.DataCol.Name = "交piao日期" Then

    If e.DataRow.IsNull("入库日期") OrElse e.DataRow.IsNull("交piao日期") Then

        e.DataRow("延迟时间") = Nothing

    Else

        Dim sp As TimeSpan = e.DataRow("交piao日期") - e.DataRow("入库日期")

        e.DataRow("延迟时间") = sp.TotalDays

    End If

Else If e.DataCol.Name = "出库单位" OrElse e.DataCol.Name = "入库单位" OrElse e.DataCol.Name = "执行时间" OrElse e.DataCol.name = "出库日期" Then

    Dim fdr As DataRow = DataTables("区间运价").Find("出库单位 = '" & e.DataRow("出库单位") & "' and 入库单位 = '" & e.DataRow("入库单位") & "' and 执行时间 >= #" & e.DataRow("出库日期") & "# And 截止日期 <= #" & e.DataRow("出库日期") & "#")

    If fdr IsNot Nothing Then

        e.DataRow("运费单价") = fdr("运费单价")

    Else

        e.DataRow("运费单价") = Nothing

    End If

End If

Dim fdr As DataRow = DataTables("运费设置").Find("出库单位 = '" & e.DataRow("出库单位") & "' and 入库单位 = '" & e.DataRow("入库单位") & "' ")

    If fdr IsNot Nothing Then

        e.DataRow("单价") = fdr("运费设置")

    Else

        e.DataRow("单价") = Nothing

    End If

End If

<!--EndFragment-->