求代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求代码

共有1753人关注过本帖树形打印复制链接主题：求代码

woshiabc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：160 积分：1214 威望：0 精华：0 注册：2015/7/1 17:35:00

求代码

Post By：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编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：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

下一主题 >> << 上一主题

主题：求代码