主题：[求助] 求算法 求公司

楼主的叙述，不好理解，估计是这样：

Case "公式4"
        If e.DataRow("新结算重量") <= 首重重量 Then
            e.DataRow("中转费") = e.DataRow("新结算重量") * 首重价格
        ElseIf e.DataRow("新结算重量") > 首重重量 And e.DataRow("新结算重量") <= 1 Then
             e.DataRow("中转费") = 首重价格+(e.DataRow("新结算重量") + 0.2 -首重重量) * 续重价格
        ElseIf e.DataRow("新结算重量") > 首重重量 And e.DataRow("新结算重量") > 1 Then
             e.DataRow("中转费") = 首重价格+(e.DataRow("新结算重量") + 0.1 -首重重量) * 续重价格
        End If