主题：编号问题

Dim bjs As List(Of String) = DataTables("Zslq").GetUniqueValues("","考点")
dim kds() as string = {"普通高中","中等职业","单领证书"}
Dim Rs As List(Of DataRow)
For Each bj As String In bjs
    For Each kd As String In kds
        rs = DataTables("Zslq").Select("[考点] = '" & bj & "' and [报考类别] = '" & kd & "'")
        For n As integer = 0 To rs.Count-1
            rs(n)("准考证号") = n +1
        Next
    Next
next