如何生成带序号的查询??！！！（解决了）

Trynew

Access能否生成带行号的查询(如Oracle的Rownum伪列一样)?
还有就是查询里能否(如何)引用上一条记录的值(如计算余额).
(最后结果不能是一个临时表.)

[此贴子已经被作者于2002-9-29 21:52:54编辑过]

Trynew

解决了。在查询里添加：RowNum:Val(Dcount("*","查询名称","主键名称<='" & [主键名称] & "'"))计算字段。
把Dcount 换成 Dsum 就可以计算累计值。限制是[主键名称]字段要唯一和查询按此排序，
当然记录数也不能太多。
不知众位高手有何高招。

tanhong

我这学习来的方法：用自定义函数可以实现如下：


第一步：建立自定义函数


Function SerializeADO(QryName As String, KeyName　As String, KeyValue) As Long
On Error GoTo Err_Serialize
   
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
     rs.ActiveConnection = CurrentProject.Connection
     rs.Open qryname, , adOpenStatic, adLockReadOnly, adCmdTableDirect
  
         Select Case rs.Fields(KeyName).Type
                     Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, DB_DOUBLE, DB_BYTE
               rs.Find "[" & KeyName & "] = " & KeyValue
                      Case DB_DATE
               rs.Find "[" & KeyName & "] = #" & KeyValue & "#"
           
            Case DB_Text
               rs.Find "[" & KeyName & "] = '" & KeyValue & "'"
            Case Else
               MsgBox "Errer ;   Invalid KeyName or KeyValue  "
         End Select


        SerializeAdo = Nz(rs.AbsolutePosition, 0)
        rs.Close
        Set rs = Nothing
       Exit Function
Err_Serialize:
         MsgBox "QueryName ", 64, " is wrong "
        Exit Function
      
End Function





第二步：用到查询中　　SerializeADO("表名","ＩＤ号字段名",字段值)


　　　　例如：　　SerializeADO("合同到期","YGID",[YGID])


仅供参考，相互学习

chaojianan

学习了。

rym_yy

谢谢分享！