[已解决]怎么让窗体新日期的记录跳在最上面，就象按降序排列？

sunny-xie

在一个窗体里插入了一个数据窗体，该数据窗体设计时把日期按降序排列了
但是插进一个窗体后，查询全部记录时，日期没有按降序排，请问要如何做才可以
让最新日期的记录总是跳在最上面？

[ 本帖最后由 cuxun 于 2007-12-21 06:50 编辑 ]

sunny-xie

me.requery

sunny-xie

me.requery？
用这个吗？

sunny-xie

代码如下，按 查询 可看到所有记录，但是没有排序，怎样让记录按降序来排列呢？


Private Sub 命令1_Click()
Dim sql As String
    sql = "SELECT * FROM 快递单登记表 where true "
    If Len(Me.组合1) > 0 Then
        sql = sql & " and 部门='" & Me!组合1 & "'"
    End If
   
   If Len(Me.Text32) > 0 Then
        sql = sql & " and 快递单号='" & Me!Text32 & "'"
    End If
  
    If IsDate(Me!Text2) And IsDate(Me!Text3) Then
   
        sql = sql & " and 快递单登记表.日期 Between #" & Me!Text2 & "# And #" & Me!Text3 & "#"
        
    End If
    Me.快递单登记表_子窗体.Form.RecordSource = sql
   
    Me.Requery
         
    If Me.快递单登记表_子窗体.Form.RecordsetClone.RecordCount = 0 Then
           MsgBox "暂无该条件记录！"
           Exit Sub
    End If
End Sub

sunny-xie

Me.快递单登记表_子窗体.Form.RecordSource = sql & " order by  日期 desc "
这样就解决问题了，THKS！

lwchy7882

请问.Form.RecordSource是什么意思?
Sql表示什么意思?

lwchy7882

真是感谢了,请问你用不用MSN?

sunny-xie

吐血推荐用MSN，与国际同步。。与我们广大的学员同步

lwchy7882

原帖由 cuxun 于 2007-12-20 13:49 发表
Me.快递单登记表_子窗体.Form.RecordSource = sql & " order by  字段名"

我在子窗体的插入后事件里加入这个:
Me.Form.RecordSource = sql & "order by 科目编码"
为什么插入新记录后提示"记录源不存在"?窗体刷新后所有字段均显示"#名称?"

注:这个子窗体的记录源来自一个含有"科目编码"字段的查询

sunny-xie

因为代码里有的名称，你表里没有，
或者你表里有的名称，代码里没有