以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]关于随机问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133625) |
||||
-- 作者:wenzi187 -- 发布时间:2019/4/17 12:08:00 -- [求助]关于随机问题 如附件,
目前第一个按钮随机抽取已经完成 达到的目的是在数量输入20,随机抽取20个单位数量。 现在问题是: 第二个按钮随机分配管段,表C第一列为负责人名字 按下名字后,可以根据抽取数量,比如负责人是固定的五人 在点击随机抽取管段是,在最后一列随机填充负责人名字, 而且是平均的,例如抽取10个单位后,每个负责人只出现两次,抽取15个单位每个负责人出现3次 如果非整数,比如16个单位,那么只有一个人多出现一次 我看了好多案例 都没有相符的 请高抬贵手 谢谢 |
||||
-- 作者:有点色 -- 发布时间:2019/4/17 12:53:00 -- Dim dt1 As DataTable = DataTables("抽取数据表") Dim cnt As Integer = count Dim rys = dt2.GetValues("第一列", "第一列 is not null") |
||||
-- 作者:wenzi187 -- 发布时间:2019/4/17 16:12:00 -- 此主题相关图片如下:微信图片_20190417160828.png 可能我没表述清楚,现在的情况是抽取之后,点击随机管段,是在下面增加了相应的行数 我的想法是直接添加在后面。
|
||||
-- 作者:有点甜 -- 发布时间:2019/4/17 16:34:00 -- 不理解你什么意思
Dim dt1 As DataTable = DataTables("抽取数据表") Dim cnt As Integer = dt1.datarows.count |