子窗体记录排序问题

xiaowuo　发表于：2011-11-03 17:05:24 　

复制

Top

煮江品茶发表于：2011-11-03 17:12:26

在窗体中右击某个字段，点击排序即可。

也可用代码控制。

Top

xiaowuo 发表于：2011-11-03 17:13:37

嗯，我的目的就是用代码控制，手动点击麻烦，请老师帮忙写段代码，谢谢了

Top

xiaowuo 发表于：2011-11-03 17:16:54

如果用手动的话，无法使用两个条件排序，而用单个条件排序，又会打乱某个项目（比如某个项目有五条记录）的录入顺序（这个顺序也不能变），所以我要结合两个条件来排序，这样，既能按项目名称排序，又不会打乱该项目名称原先录入的顺序（说明：收发明细ID是唯一的不重复的，按顺序自动生成的）

Top

叶海峰发表于：2011-11-03 17:28:49

记录源设为: select * from 收发明细表查询 order by 项目名称,收发明细id

Top

xiaowuo 发表于：2011-11-04 08:14:58

您好，叶海峰，我这人窗体有点不同，我的窗体是主子窗体结构，要在主窗体上执行一次子窗体条件筛选（筛选代码如下），所筛选后的子窗体记录再执行排序，按你的代码不知如何加，请再次帮忙

Private Sub Combo9_AfterUpdate()
    ' 在当前窗体自动查找与该控件匹配的记录。
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[校名] = " & Nz(Me![Combo9]) & " And [期号] = '" & Nz(Me![Combo29]) & "'"
    Me.Bookmark = rs.Bookmark
    If rs.NoMatch = False Then
       MsgBox "您将要对【" & Me.Combo29 & "】的【" & Me.Combo9.Column(1) & "】学校开始进行数据录入，请小心操作！", vbOKOnly, "提醒"
    Else
       MsgBox "未发现有【" & Me.Combo29 & "】的【" & Me.Combo9.Column(1) & "】学校的单需要处理，请检查期号或校名是否选择有误！或因【新学期】的数据尚未创建！", vbInformation, "提醒"
       Cancel = True
    End If
    Set rs = Nothing
End Sub

窗体图如下（先要在右边选择相应的校名）

Top

叶海峰发表于：2011-11-04 10:16:46

主窗体,子窗体的记录源,除了绑定表外,还可以绑定一个查询,同理,用一个sql语句作为数据源等同于绑定一个查询.如果非要绑定一个表的话,尝试在表设计图里面添加排序索引

Top

xiaowuo 发表于：2011-11-04 11:25:49

我的子窗体引用的是查询，不是直接表，我再试试你的方法

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

子窗体记录排序问题