以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据快递单上的重量和报价单上的价格如何确定单价  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=112807)
--  作者：rgbjwjb
--  发布时间：2018/1/3 11:35:00
--  根据快递单上的重量和报价单上的价格如何确定单价
我想根据快递单上的快递公司的名称和目的地所在的省份，直接从报价单上获取单价，请指教。
报价单上的重量段1的重量范围：5-60公斤；重量段2的重量范围：61-180公斤；重量段3的重量范围：181-600公斤；
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:物流.rar

重量段4的重量范围：601以上：
--  作者：有点甜
--  发布时间：2018/1/3 12:16:00
--  

datacolchanged事件，写代码

 

Select Case e.DataCol.name
    Case "快递公司名称","省","重量"
        Dim fdr As DataRow = DataTables("报价单").find("目的地=\'" & e.DataRow("省") & "\' and 快递公司名称=\'" & e.DataRow("快递公司名称") & "\'")
        If fdr Is Nothing Then
            e.DataRow("单价") = Nothing
        Else
            If e.DataRow("重量") >= 5 AndAlso e.DataRow("重量") <= 60 Then
                e.DataRow("单价") = fdr("重量段1")
            ElseIf e.DataRow("重量") >= 61 AndAlso e.DataRow("重量") <= 180 Then
                e.DataRow("单价") = fdr("重量段2")
            ElseIf e.DataRow("重量") >= 181 AndAlso e.DataRow("重量") <= 600 Then
                e.DataRow("单价") = fdr("重量段3")
            ElseIf e.DataRow("重量") >= 601 Then
                e.DataRow("单价") = fdr("重量段4")
            End If
        End If
End Select