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

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