|
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
|
加好友 
发短信
Post By：2016/12/16 10:09:00 [显示全部帖子]
