以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=135597)
--  作者：HANZHIGANG
--  发布时间：2019/5/29 21:08:00
--  [求助]

Select Case e.DataCol.Name
    Case "上游客户","品牌","商品车","上游动态","计划下达时间"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("上游客户") OrElse dr.IsNull("品牌") OrElse dr.IsNull("商品车") OrElse dr.IsNull("上游动态") OrElse dr.IsNull("计划下达时间") Then
            dr("上游运输单价") = Nothing
        Else
            Dim filter As String
            filter = "上游客户 = \'" & dr("上游客户") & "\' And 品牌 = \'" & dr("品牌") & "\'And 上游动态 = \'" & dr("上游动态") & "\' And 商品车 = \'" & dr("商品车") & "\'And 计划下达时间 BETWEEN \'" & dr("起始日期") And dr("终止日期") & "\'"
            pr = DataTables("上游运价表").Find(filter)
            If pr IsNot Nothing Then
                dr("上游运输单价") = pr("单台单价")
            End If
        End If
End Select

 

想实现跨表引用，问题出在了：And 计划下达时间 BETWEEN \'" & dr("起始日期") And dr("终止日期") &这段上，没加这段是可引用的，加上这句后就代不出数据了

请老师指导
--  作者：有点甜
--  发布时间：2019/5/29 21:12:00
--  
filter = "上游客户 = \'" & dr("上游客户") & "\' And 品牌 = \'" & dr("品牌") & "\'And 上游动态 = \'" & dr("上游动态") & "\' And 商品车 = \'" & dr("商品车") & "\'And 计划下达时间 >= #" & dr("起始日期") & "# And 计划下达时间 <= #" & dr("终止日期") & "#"
--  作者：HANZHIGANG
--  发布时间：2019/5/29 21:42:00
--  

还是不行，没起到控制作用
--  作者：HANZHIGANG
--  发布时间：2019/5/29 21:44:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目.table

相关的两个表是信息总表和上游运价表，请帮忙看一下，谢老师
--  作者：HANZHIGANG
--  发布时间：2019/5/29 22:00:00
--  
也就是说信息总表中的计划下达时间必须是上游运价表中的起始和终止两时间之间才可以代出价格
--  作者：有点甜
--  发布时间：2019/5/29 23:00:00
--  

我测试没问题。

 

1、请重置列；

 

2、请截图说明如何操作，怎么不行，哪行数据不行。
--  作者：HANZHIGANG
--  发布时间：2019/5/30 8:42:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20190530084025.png
图片点击可在新窗口打开查看
没有错误提示，但不应该出现价格的行却出现了价格
--  作者：有点甜
--  发布时间：2019/5/30 9:24:00
--  
Select Case e.DataCol.Name
    Case "上游客户","品牌","商品车","上游动态","计划下达时间"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("上游客户") OrElse dr.IsNull("品牌") OrElse dr.IsNull("商品车") OrElse dr.IsNull("上游动态") OrElse dr.IsNull("计划下达时间") Then
            dr("上游运输单价") = Nothing
        Else
            Dim filter As String
            filter = "上游客户 = \'" & dr("上游客户") & "\' And 品牌 = \'" & dr("品牌") & "\'And 上游动态 = \'" & dr("上游动态") & "\' And 商品车 = \'" & dr("商品车") & "\'And 起始日期 <= #" & dr("计划下达时间") & "# And 终止日期 >= #" & dr("计划下达时间") & "#"
            pr = DataTables("上游运价表").Find(filter)
            If pr IsNot Nothing Then
                dr("上游运输单价") = pr("单台单价")
            Else
                dr("上游运输单价") = Nothing
            End If
        End If
End Select
--  作者：HANZHIGANG
--  发布时间：2019/5/30 11:20:00
--  
谢老师