如何对Data控件的数据库记录进行排序然后在dbgrid里显示出来？

Question

写一个SQL不就成了，给你举个例子
data1.databasename=数据库名
data1.recordsource="SELECT * FROM 表名 ORDER BY 需排序的字段名"
data1.refresh
当然dbgrid的datasource是data1了。

Answer 1

 dim rs as new adodb.recorderset
 rs.open "SELECT * FROM 表名 ORDER BY 需排序的字段名",cn
 set data.datasource =rs 

Answer 2

dim rs as recordset
dim sqlstr as string
sqlstr="select * from ..... order by ..."
set rs=data1.database.openrecordset(sqlstr0
set data1.recordset=rs
.....