主题：编号问题

编号只编一部分不编了，请在大家看错哪儿　

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

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

编号只编一部分？

符合条件的行都应该进入编号噻，为什么只编了一部分，请你看看，我觉得　Select　有点问题

按道理我上述条件应该能按我要求编制号，可是为什么只编一部分