以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教下如何随机男女混搭编排  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126282)
--  作者：zhuzhi
--  发布时间：2018/10/18 5:47:00
--  [求助]请教下如何随机男女混搭编排
请教各位老师，我想用狐表对数据里进行自动编排，想要实现：
1.一键随机编排数据的顺序
2.按照男女男女……这样2个一组男女相邻排在一起
3.系统随机对2个一组相邻的数据分出主次，比如
第一行  男（主)
第二行  女（次）

第三行   男（次）
第四行   女（主）

不知这样有无方法实现呢？

求老师们赐教，十分感谢！ 
--  作者：y2287958
--  发布时间：2018/10/18 8:50:00
--  
第五第六行又是个怎样的安排？请上实例
--  作者：有点蓝
--  发布时间：2018/10/18 10:01:00
--  
请上传具体实例测试，并给出实际效果看看
--  作者：有点甜
--  发布时间：2018/10/18 10:40:00
--  
Dim t As Table = Tables("表A")
For i As Integer = 0 To t.Rows.count-1 Step 2
    Dim r1 = t.Rows(i)
    Dim r2 = t.Rows(i+1)
    Dim idx = Rand.Next(0, 2)
    If idx = 0 Then
        r1("第一列") = "男(主)"
        r2("第一列") = "女(次)"
    Else
        r1("第一列") = "男(次)"
        r2("第一列") = "女(主)"
    End If
Next