主题：排号

Dim dt As DataTable = DataTables("zk")
dt.StopRedraw()

Dim kds = dt.GetValues("kdxxdm")
Dim js As Integer = 1
Dim zw As Integer = 0
For Each kd As String In kds
    Dim drs = dt.Select("kdxxdm = '" & kd & "'")
    Dim cnt As Integer = drs.count
    Dim ids(cnt - 1) As Integer
    For i As Integer = 0 To cnt -1
        ids(i) = i
    Next
    For i As Integer = 0 To cnt  '洗牌次数
        Dim id1 As Integer = rand.Next(0,cnt)
        Dim id2 As Integer = rand.Next(0,cnt)
        Dim vid As Integer = ids(id1)
        ids(id1) = ids(id2)
        ids(id2) = vid
    Next
    For i As Integer = 0 To cnt-1
        If zw > 29 Then
            js += 1
            zw = 1
        Else
            zw += 1
        End If
        drs(ids(i))("ksh") = "1802" & Format(js, "000") & Format(zw, "00")
    Next
Next

dt.ResumeRedraw()

Dim dt As DataTable = DataTables("zk")
dt.StopRedraw()

Dim kds = dt.GetValues("kdxxdm")
Dim js As Integer = 1
Dim zw As Integer = 0
For Each kd As String In kds
    js += 1
    zw = 0
    Dim drs = dt.Select("kdxxdm = '" & kd & "'")
    Dim cnt As Integer = drs.count
    Dim ids(cnt - 1) As Integer
    For i As Integer = 0 To cnt -1
        ids(i) = i
    Next
    For i As Integer = 0 To cnt  '洗牌次数
        Dim id1 As Integer = rand.Next(0,cnt)
        Dim id2 As Integer = rand.Next(0,cnt)
        Dim vid As Integer = ids(id1)
        ids(id1) = ids(id2)
        ids(id2) = vid
    Next
    For i As Integer = 0 To cnt-1
        If zw > 29 Then
            js += 1
            zw = 1
        Else
            zw += 1
        End If
        drs(ids(i))("ksh") = "1802" & Format(js, "000") & Format(zw, "00")
    Next
Next

dt.ResumeRedraw()

Dim dt As DataTable = DataTables("zk")
dt.StopRedraw()

Dim kds = dt.GetValues("kdxxdm")
Dim js As Integer = 1
Dim zw As Integer = 0
For Each kd As String In kds
    js += 1
    zw = 0
    Dim drs = dt.Select("kdxxdm = '" & kd & "'")
    Dim cnt As Integer = drs.count
    Dim ids(cnt - 1) As Integer
    For i As Integer = 0 To cnt -1
        ids(i) = i
    Next
    For i As Integer = 0 To cnt  '洗牌次数
        Dim id1 As Integer = rand.Next(0,cnt)
        Dim id2 As Integer = rand.Next(0,cnt)
        Dim vid As Integer = ids(id1)
        ids(id1) = ids(id2)
        ids(id2) = vid
    Next
    For i As Integer = 0 To cnt-1
        If zw > 29 Then
            If cnt-i+1 > 10 Then
                js += 1
                zw = 1
            Else
                zw += 1
            End If
        Else
            zw += 1
        End If
        drs(ids(i))("ksh") = "1802" & Format(js, "000") & Format(zw, "00")
    Next
Next

dt.ResumeRedraw()