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
[此贴子已经被作者于2014-11-11 23:08:00编辑过]
加好友 
发短信
Post By：2014/11/11 23:07:00 [只看该作者]
