主题：[求助][求助]请教如何分班，内详

请教如何写这段代码，

描述不够具体,不知道你具体想怎么样.

如上图

你是要自动分配输入, 还是要限制输入数量

自动分配的，BIN版，麻烦了，不少于10个班，这个例子我只列了三个班

 重复代码，细节自己调整

 

Dim dt As DataTable = DataTables("表A")
Dim cs() As String = {"A班","B班","C班"}

Dim rsums As new Dictionary(Of String, Double)
For Each c As String In cs
    Dim sum As Double = 0
    Dim temp As Double = 0
    Dim mcount As Double = 0
    For Each dr As DataRow In dt.DataRows
        If dr("活动") = "找工具" Then
            mcount = 10
        Else If dr("活动") = "找玩具" Then
            mcount = 20
        Else If dr("活动") = "找课本" Then
            mcount = 30
        End If
        If rsums.ContainsKey(dr("活动")) = False Then rsums.Add(dr("活动"),0)
        If mcount + rsums(dr("活动")) <= dr("数量") Then
            temp = mcount
        Else
            temp = dr("数量") - rsums(dr("活动"))
        End If
        If temp + sum >= 50 Then
            temp = 50 - sum
        End If
        If temp >= 0 Then
            sum += temp
            dr(c) = temp
            rsums(dr("活动")) += dr(c)
        End If
       
    Next
Next

谢谢甜版，但如果有N个班，那手工加上去不是很麻烦呀？

 那你就做个班级表，自动获取所有的班级。

你是横向的列,手动添加比较稳妥.   其实你这样表设计不怎么合理,应该竖向才对.每个班一个列,不科学的.