- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 编号问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6520)
-- 发布时间：2010/4/6 22:41:00
-- 编号问题
编号只编一部分不编了，请在大家看错哪儿
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2010/4/6 23:03:00
--
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
编号只编一部分？
-- 发布时间：2010/4/6 23:12:00
--
你要怎样的结果？
-- 发布时间：2010/4/6 23:13:00
--
符合条件的行都应该进入编号噻，为什么只编了一部分，请你看看，我觉得 Select 有点问题
-- 发布时间：2010/4/6 23:14:00
--
按道理我上述条件应该能按我要求编制号，可是为什么只编一部分
-- 发布时间：2010/4/6 23:28:00
--
看看这个结果：？ output.show(DataTables("Zslq").Select("[考点] = \'" & bj & "\' and [报考类别] = \'" & kd & "\'").Count )
-- 发布时间：2010/4/6 23:28:00
--
这样不对的，行被跨越过去了！
[此贴子已经被作者于2010-4-6 23:29:53编辑过]
-- 发布时间：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
-- 发布时间：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