[求助] 按产品批量的大小抽取样本 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 按产品批量的大小抽取样本

共有2556人关注过本帖树形打印复制链接主题：[求助] 按产品批量的大小抽取样本

xinghuo

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：51 积分：633 威望：0 精华：0 注册：2011/3/27 15:11:00

[求助] 按产品批量的大小抽取样本 发帖心情

Post By：2021/8/26 12:48:00 [只看该作者]

产品抽样问题：按产品批量的大小抽取样本

批量 10以下全抽样本数=批量数

批量 50 样本 10

批量 100 样本 13

批量 500 样本 50

批量 3200 样本 80

批量 3200 以上样本 125

xinghuo

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：51 积分：633 威望：0 精华：0 注册：2011/3/27 15:11:00

Post By：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

这个试了不行

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107523 积分：546900 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/8/26 13:40:00 [只看该作者]

Select Case e.DataRow("批量")

下一主题 >> << 上一主题

主题：[求助] 按产品批量的大小抽取样本