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

 重复代码，细节自己调整

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