主题：[求助]关于数据分拣的函数如何编写

汗

Dim num1 As Integer = 880
Dim num2 As Integer = 600
Dim count As Integer = 13
Dim idx As Integer = 1
Dim dt As DataTable = DataTables("分拣数据")
Dim drs As List(Of DataRow) = dt.Select("", "参数1 desc")
dt.ReplaceFor("新组号", Nothing)
dt.ReplaceFor("组内序号", Nothing)
For Each dr As DataRow In drs
    If dr.Isnull("新组号") Then
        Dim filter As String = "新组号 is null and  参数1 <= " & dr("参数1") & " and 参数1 >= " & dr("参数1") - num1
        Dim gdrs As List(Of DataRow) = dt.Select(filter, "参数2 desc")
        If gdrs.Count >= count Then
            Dim pos As Integer
            For i As Integer = 0 To gdrs.count - 1
                If gdrs(i)("_Identify") = dr("_Identify")
                    pos = i
                    Exit For
                End If
            Next

            For i As Integer = 0 To gdrs.Count - count
                If i<=pos AndAlso i+count>pos Then
                    If gdrs(i)("参数2") - gdrs(i+count-1)("参数2") <= num2 Then
                        For j As Integer = i To i+count - 1
                            gdrs(j)("新组号") = idx
                            gdrs(j)("组内序号") = j-i+1
                        Next
                        idx += 1
                        Exit For
                    End If
                End If
            Next
        End If
    End If
Next