- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84295)
-- 发布时间：2016/4/27 20:40:00
-- 求代码
此主题相关图片如下：d88d}p%pan%nkp(}uwyc~k.png
此主题相关图片如下：e)b%a7(gs@2{afpkt5eg8.png
图一cutting的值取自图二切工费，条件是商品编号和等级相同，并且图一QTY数量在图二从量K至量K两个字段数值之间
[此贴子已经被作者于2016/4/27 20:40:52编辑过]
-- 发布时间：2016/4/27 20:56:00
--
Select Case e.DataCol.Name
Case "商品编号", "报价等级", "QTY"
Dim fdr As DataRow = DataTables("表B").Find("商品编号 = \'" & e.DataRow("商品编号") & "\' and 等级 = \'" & e.DataRow("等级") & "\' And 从量K <= " & e.DataRow("QTY") & " And 置量K > " & e.DataRow("QTY"))
If fdr IsNot Nothing Then
e.DataRow("cutting") = fdr("切工费")
End If
End Select