主题：[求助]

取区间运价，刚把那个ID修改为执行时间了，比如2014-11-12 18：00

执行时间为datetime格式

希望如果符合出库单位，入库单位和执行时间，自动填入单价

刚看到一会，然来到第三页来了，试了一下，输入入库单位后就自动生存了单价，输入不同的入库单位，单价没有发生改变

 

区间运价表的ID列修改为执行时间，不是延迟时间，田田老师是不是看错了

 

区间运价表是设置运费单价的，需要根据供销明细里面出库单位，入库单位，入库日期和区间运价表里执行日期来判断运费单价，另外那个执行日期格式为Date型

区间运价表是设置运费单价的，需要根据供销明细里面出库单位，入库单位，出库日期和区间运价表里执行日期来判断运费单价，另外那个执行日期格式为Date型

修改入库时间或者修改执行时间数据没有改变，应该是这里搞错了Else If e.DataCol.Name = "出库单位" OrElse e.DataCol.Name = "入库单位" OrElse e.DataCol.Name = "延迟时间" Then

运费单价需要 符合出库单位和入库单位后，还需要符合执行日期>=出库日期，所以刚才那个代码还是不能执行

应该是出库日期>=执行时间，我刚把  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-->-------------------------------------提交提示表达式错误