以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 按产品批量的大小抽取样本  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171325)

--  作者:xinghuo
--  发布时间:2021/8/26 12:48:00
--  [求助] 按产品批量的大小抽取样本
产品抽样问题:按产品批量的大小抽取样本
批量 10以下  全抽  样本数=批量数
批量 50    样本 10
批量 100   样本 13
批量 500    样本 50
批量 3200   样本 80
批量 3200 以上   样本 125



--  作者:xinghuo
--  发布时间:2021/8/26 12:50:00
--  
If e.DataRow.IsNull("批量") Then
    e.DataRow("样本量") = Nothing
    
Else
    Select Case "批量"
        
        Case 1 To 10
            e.DataRow("样本量") = e.DataRow("批量")
        Case 11 To 50
            e.DataRow("样本量") = 10
        Case 51 To 100
            e.DataRow("样本量") = 13
        Case 101 To 500
            e.DataRow("样本量") = 50
        Case 501 To 3200
            e.DataRow("样本量") = 80
            
        Case Else
            e.DataRow("样本量") = 125
            
    End Select
End If


这个试了不行  

--  作者:有点蓝
--  发布时间:2021/8/26 13:40:00
--  
Select Case e.DataRow("批量")