 加好友  发短信
等级：贵宾
帖子：39310
积分：196782
威望：0
精华：1
注册：2015/4/25 9:23:00
|
 Post By：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
|
|
