共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：编号问题
1楼
lpxjw_zyl 发表于：2010/4/6 22:41:00编号只编一部分不编了，请在大家看错哪儿
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
2楼
lpxjw_zyl 发表于：2010/4/6 23:03:00Dim 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
编号只编一部分？
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
编号只编一部分？
3楼
mr725 发表于：2010/4/6 23:12:00你要怎样的结果？
4楼
lpxjw_zyl 发表于：2010/4/6 23:13:00符合条件的行都应该进入编号噻，为什么只编了一部分，请你看看，我觉得 Select 有点问题
5楼
lpxjw_zyl 发表于：2010/4/6 23:14:00按道理我上述条件应该能按我要求编制号，可是为什么只编一部分
6楼
mr725 发表于：2010/4/6 23:28:00看看这个结果：？ output.show(DataTables("Zslq").Select("[考点] = '" & bj & "' and [报考类别] = '" & kd & "'").Count )
7楼
程兴刚 发表于：2010/4/6 23:28:00这样不对的，行被跨越过去了！
[此贴子已经被作者于2010-4-6 23:29:53编辑过]
8楼
mr725 发表于：2010/4/6 23:41:00是要这样的结果吗？::::::::::::::
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 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
9楼
程兴刚 发表于：2010/4/6 23:41:00以下是引用lpxjw_zyl在2010-4-6 23:14:00的发言：
按道理我上述条件应该能按我要求编制号，可是为什么只编一部分
按道理我上述条件应该能按我要求编制号，可是为什么只编一部分
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
共9 条记录, 每页显示 10 条, 页签:
[1]