主题：编号问题

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

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

点击浏览该文件:管理项目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　有点问题

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

看看这个结果：？ output.show(DataTables("Zslq").Select("[考点] = '" & bj & "' and [报考类别] = '" & kd & "'").Count )

这样不对的，行被跨越过去了！

是要这样的结果吗？::::::::::::::

dim n as integer
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 
        Dim drs As List(Of DataRow)
        drs = DataTables("Zslq").Select("[考点] = '" & bj & "' and [报考类别] = '" & kd & "'")
        for each dr as datarow in drs
            dr("准考证号") = n +1
            n = n +1
        Next       
    Next
Next

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