主题：[求助]

 

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 = "出库单位" Then
    Dim fdr As DataRow = DataTables("区间运价").Find("出库单位 = '" & e.DataRow("出库单位") & "'")
    If fdr IsNot Nothing Then
        e.DataRow("运费单价") = fdr("运费单价")
    Else
        e.DataRow("运费单价") = Nothing
    End If
End If

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

 

 

逻辑是什么？根据什么条件查询数据？

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

 

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

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

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 = "延迟时间" Then
    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

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

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

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