菜鸟求助:VB中 DataGrid的排序和导出问题,求高手

Question

界面含2个command,为command1和command2, 一个datagrid,为datagrid1
表内多个字段,我在datagrid的属性中指定了 列标题 和 字段(由于部分是不需要显示的)现求源码,点击datagrid1的表头,进行排序
以及点击command2,将datagrid1的内容导出到excel部分代码:
Private Sub Form_Load()
conn.CursorLocation = adUseClient
conn.Open
End SubPrivate Sub Command1_Click()
Dim sql As String
sql = "select * from Dj "
If us.State = adStateOpen Then
    us.Close
End If
us.Open sql, conn, 1, 3
Set DataGrid1.DataSource = us
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub

Answer 1

排序问题解决了 如何导出??顶一下