以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助:要求按区间进行取值计算(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72638)

--  作者:jiterp
--  发布时间:2015/8/3 16:30:00
--  求助:要求按区间进行取值计算(已解决)
我有一需求,要求《订单表》的投入标准工时,按《标准工时表》的区间值条件进行取值,求老师写一下计算按钮代码。


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150803162501.png
图片点击可在新窗口打开查看

以下是项目例子
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb



谢谢!
[此贴子已经被作者于2015/9/6 16:49:25编辑过]

--  作者:大红袍
--  发布时间:2015/8/3 16:54:00
--  

DataColChanged事件

 

Select Case e.DataCol.name
    Case "产品", "生产数量"
        Dim fdr As DataRow = DataTables("工时表").Find("产品 = \'" & e.DataRow("产品") & "\' and 下限数量 <= " & e.DataRow("生产数量"), "下限数量 desc")
        If fdr IsNot Nothing Then
            e.DataRow("标准投入工时") = fdr("标准工时")
        Else
            e.DataRow("标准投入工时") = Nothing
        End If
End Select


--  作者:jiterp
--  发布时间:2015/8/4 3:06:00
--  
谢谢