以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何随机分班  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1600)
--  作者：老有所乐
--  发布时间：2009/1/10 22:47:00
--  如何随机分班
如何将表A人员进行随机分班，具体要求见表A窗口，谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:随机分班.table
--  作者：czy
--  发布时间：2009/1/10 23:43:00
--  
if  e.Form.Controls("Number").Value <= 0 Then
    MessageBox.Show("分班不能小等于1!","中止操作",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)
    Return
End If
DataTables("分班").DataRows.Clear()
dim f As New Filler
f.SourceTable = DataTables("表A")
f.DataTable = DataTables("分班")
f.Fill
Currenttable.sort = "总分"
For i As integer = 0 to currenttable.rows.count -1
    CurrentTable.Rows(i)("班级") = Format(1 + i mod e.Form.Controls("Number").Value,"00")
Next
Currenttable.sort = ""
--  作者：czy
--  发布时间：2009/1/10 23:48:00
--  
呵呵，我当窗口是在分班表中。

楼上的代码需改一下：

if  e.Form.Controls("Number").Value <= 0 Then
    MessageBox.Show("分班不能小等于1!","中止操作",MessageBoxButtons.OK,MessageBoxIcon.Exclamation)
    Return
End If
DataTables("分班").DataRows.Clear()
dim f As New Filler
f.SourceTable = DataTables("表A")
f.DataTable = DataTables("分班")
f.Fill
Tables("分班").sort = "总分"
For i As integer = 0 to Tables("分班").rows.count -1
    Tables("分班").Rows(i)("班级") = Format(1 + i mod e.Form.Controls("Number").Value,"00")
Next
Tables("分班").sort = ""
--  作者：老有所乐
--  发布时间：2009/1/11 21:03:00
--  

谢谢C版主！非常好。
--  作者：wny616
--  发布时间：2010/4/7 8:59:00
--  

版主你好，随机分班下载后打不开，怎么办？
--  作者：狐狸爸爸
--  发布时间：2010/4/7 9:01:00
--  
以下是引用wny616在2010-4-7 8:59:00的发言：

版主你好，随机分班下载后打不开，怎么办？


可以打开啊
--  作者：wny616
--  发布时间：2010/4/7 9:03:00
--  
随机分班有没有现成的软件？谢谢，急用
--  作者：狐狸爸爸
--  发布时间：2010/4/7 9:06:00
--  
以下是引用wny616在2010-4-7 9:03:00的发言：
随机分班有没有现成的软件？谢谢，急用


下载foxtable，打开上面的文件
--  作者：xl
--  发布时间：2010/4/7 12:35:00
--  

“分班”常根据“性别”、“总分”平衡而随机分班。
--  作者：shenqiulo
--  发布时间：2015/12/11 11:13:00
--  代码应该在哪个窗口添加进去
代码应该在哪个窗口添加进去