主题：按照一定规则自动编上号码

如图：

此主题相关图片如下：排4.png


此主题相关图片如下：排序3.png

此主题相关图片如下：排序5.png

 做个foxtable表格上传上来。

好的，

Dim dt As DataTable = DataTables("月度加工整体安排")
Dim zps As List(Of String) = dt.GetValues("製品", "製品 is not null", "_Sortkey")
Dim dic As new Dictionary(Of String, object)
Dim dicIdx As new Dictionary(Of String, Integer)
Dim count As Integer = 0
For Each zp As String In zps
    Dim drs As List(of DataRow) = dt.Select("製品 = '" & zp & "'", "批次")
    dic.Add(zp, drs)
    dicIdx.Add(zp, 0)
    count += drs.count
Next
Dim i As Integer = 1
Do While i <= count
    For Each zp As String In zps
        If dicIdx(zp) < dic(zp).count Then
            dic(zp)(dicIdx(zp))("加工优先级") = i
            dicIdx(zp) += 1
            i += 1
        End If
    Next
Loop