编号问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 编号问题

共有12082人关注过本帖树形打印复制链接主题：编号问题

mr725

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/4/6 23:12:00 [显示全部帖子]

你要怎样的结果？

mr725

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/4/6 23:28:00 [显示全部帖子]

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

mr725

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：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

下一主题 >> << 上一主题

主题：编号问题