排序问题的请教

简

我的子窗体排序代码如下：

    Me.sub1.Form.OrderBy = "工厂,外协单位,产品代号,发件日期,卡号": Me.sub1.Form.OrderByOn = True

我认为，代码Me.sub1.Form.OrderBy = "工厂,外协单位,产品代号,发件日期,卡号"中每个字段都是按升序排列的，我的问题是:

1）如果全部都降序排列，代码该如何修改呢？
2）如果我要求工厂，外协单位，产品代号是升序排列，然后发件日期是降序排列，卡号随意，其代码又该如何修改呢？

Henry D. Sy

降序：
desc

roych

建议在查询源里进行排序。

简

roych 发表于 2012-1-14 09:57
建议在查询源里进行排序。

我排序的方式并不固定，换句话说就是动态排序，随时都可能变化排序的方式，如果在查询源里排序，那样要做很多个查询，我不想这样做。

roych

其实不必使用多个查询的，用SQL随时指定查询源即可（前提是已经存在该查询了），例如：

1. Sub test()
   
2. Dim qry As QueryDef
   
3. Set qry = CurrentDb.QueryDefs("dd")
   
4. '在这里修改Order部分。
   
5. qry.SQL = "select * from Tbl_Test Order By [Order]"
   
6. End Sub

复制代码

简

roych 发表于 2012-1-14 21:06
其实不必使用多个查询的，用SQL随时指定查询源即可（前提是已经存在该查询了），例如：

这也是个方法，谢谢roych版主。
折腾了一下午，我总算解决了。