建议打开记录集的时候排序,如:
dim rrr as new Adodb.Recordset
dim ccc as new Adodb.Connectionccc.open "XXX"
rrr.CursorLocation = adUseClient
rrr.open "select * from TableX order by FieldX",ccc

解决方案 »

  1.   

    我想请教一下bitsoft——我使用的查询格式如下:
    Dim Mydb As Database
    Dim Mytable As Recordset
      Set Mydb = OpenDatabase("C:\Program Files\ZZZY\Mdb\DPCZ.mdb")
      Mydb.Execute "DELETE * FROM L_库 WHERE NO <>''"
      Mydb.Execute "insert into L_库 select * from T_库 where 供货=trim(text1.text) and RQ>=Cdata(trim(text2.text)) and RQ<Cdata(trim(text3.text))... "
      mydb.close
      
    其中,T_库为源数据表,L_库为数据报(Data Report)输出的数据源,在此怎样对L_库进行排序才能使用我的数据报输出有序?
      

  2.   

    Mydb.Execute "DELETE  FROM L_库 WHERE NO <>''"
      

  3.   

    我的VB的Data Report有些问题,所以不能实验,印象中Data Report的数据源可以是表,也可以是Command,可以把Command的Sql写成"select * from L_库 order by",让Command作Data Report的数据源。
      

  4.   

    特别鸣谢bitsoft,我按照您的提示,现在问题已经解决!
      再次万分感谢!!!