求助：如何在查询中生成一个序号字段

zrj898

比如1、2、3....的字段。有简单的办法比如函数吗？

zrj898

本想直接更新recordset2对象Rst01，不过没成功，不让更新，用了edit和update方法都不行。
上面的东西又分栏、又分行的，我想问能否把生成的表：打印桩号临时表 换成tabledef或requerydef对象呢！

zrj898

感谢大家，深受启发现在把我的解决办法提供一下，办法很笨，但也简单：
Private Sub StrDsql()
Dim SS1, SS2, SS3, SS4, SS5, SS6, SS7, SS8 As String
Dim iii, XH, PH, HH, Cb3 As Integer
    If XmLx = "二维" And Cb01.Value = "按线号" Then
        QSql = Sql1 & Sql2 & WHSql & Str01 & Str02 & Str04 & ODSql2X
    End If
   
    If XmLx = "三维" And Cb01.Value = "按线号" Then
        QSql = Sql1 & Sql2 & WHSql & Str01 & Str02 & Str04 & ODSql3X
    End If
   
    If XmLx = "三维" And Cb01.Value = "按排号" Then
        QSql = Sql1 & Sql2 & WHSql & Str01 & Str02 & Str04 & ODSql3P
    End If
    '以下是生成的qsql的语句
    'print qsql
                'SELECT a.线号, a.类型, b.子线号, b.设计线号, b.设计点号, b.简化桩号, a.点号, '278队/2012年' AS 队号,
                '0 AS 序号, 0 AS 分栏, 0 as 分行 FROM 测线设计数据 AS a LEFT JOIN 设计物理点列表 AS b ON a.重新设计ID = b.ID
                'where (a.类型 in ('G','S')) and a.项目ID= 51 and a.成果数据ID>0  and b.设计线号='2085'  and val(b.设计点号)>=2001 and val(b.设计点号)<=2392 ORDER BY b.设计线号, b.设计点号

    Sql = "DELETE 打印桩号临时表.* FROM 打印桩号临时表"
    DoCmd.RunSQL Sql
   
    Set Rst01 = DbTemp.OpenRecordset(QSql)
    Rst01.MoveFirst
    XH = 0
    Cb3 = Rst01.RecordCount \ 3
    If (Rst01.RecordCount Mod 3) > 0 Then Cb3 = Cb3 + 1
   
    Do While Not Rst01.EOF
        XH = XH + 1
        HH = XH Mod Cb3
        If HH = 0 Then HH = Cb3
        If HH = Cb3 Then PH = (XH \ Cb3) Else PH = (XH \ Cb3) + 1
        SS1 = Rst01.Fields("线号").Value
        SS2 = Rst01.Fields("类型").Value
        SS3 = Rst01.Fields("点号").Value
        SS4 = Rst01.Fields("设计线号").Value
        SS5 = Rst01.Fields("设计点号").Value
        SS6 = Rst01.Fields("子线号").Value
        SS7 = Rst01.Fields("简化桩号").Value
        SS8 = Rst01.Fields("队号").Value
        
        If PH = 1 Then
            Sql = "insert into 打印桩号临时表 (队号,列1序号,列1行号,列1线号,列1点号,列1简桩) values " _
                & "('" & SS8 & "'," & str(XH) & "," & str(HH) & ",'" & SS1 & "','" & SS3 & "','" & SS7 & "')"
            DoCmd.RunSQL Sql
        End If
        If PH = 2 Then
            Sql = "update 打印桩号临时表 as a " _
                & "set a.列2序号=" & str(XH) _
                & ", a.列2行号=" & str(HH) _
                & ", a.列2线号=" & "'" & SS1 & "'" _
                & ", a.列2点号=" & "'" & SS3 & "'" _
                & ", a.列2简桩=" & "'" & SS7 & "'" _
                & " where a.列1行号=" & str(HH)
            DoCmd.RunSQL Sql
        End If
        If PH = 3 Then
            Sql = "update 打印桩号临时表 as a " _
                & "set a.列3序号=" & str(XH) _
                & ", a.列3行号=" & str(HH) _
                & ", a.列3线号=" & "'" & SS1 & "'" _
                & ", a.列3点号=" & "'" & SS3 & "'" _
                & ", a.列3简桩=" & "'" & SS7 & "'" _
                & " where a.列1行号=" & str(HH)
            DoCmd.RunSQL Sql
        End If
        Rst01.MoveNext
        Me.桩号打印_子窗体.Requery
    Loop
    Rst01.Close
    Me.桩号打印_子窗体.Requery
End Sub

Henry D. Sy

简 发表于 2012-7-22 15:21
问问，在Henry D版主的例子中，是不是要求名称必须唯一，如果像记录中有重复的，还能生成序号吗？
还有， ...

如果重复可以在增加第二个字段来比较

简

Henry D. Sy 发表于 2012-7-21 15:10
没有主键也可以

问问，在Henry D版主的例子中，是不是要求名称必须唯一，如果像记录中有重复的，还能生成序号吗？
还有，在有重复记录的交叉表中，能生成序号不呢？

Henry D. Sy

cuxun 发表于 2012-7-21 11:49
有主键就好办.

没有主键也可以

1. select (select count(名称) from 商品分类表 b where b.名称<=a.名称) as 序号,a.名称
   
2. from 商品分类表 a
   
3. order by a.名称

复制代码

roych

一般来说，可以考虑用DCount函数来处理。

Henry D. Sy

答案是肯定的，但你要传例子，

todaynew

用别名即可，比如
select 字段1 as 1,字段2 as 2 from tbname