以文本方式查看主题 - 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("批量") |