主题：求助：要求按区间进行取值计算(已解决)

我有一需求，要求《订单表》的投入标准工时，按《标准工时表》的区间值条件进行取值，求老师写一下计算按钮代码。

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

谢谢