使用Data Report打印查詢結果

    如果我們想把查詢結果打印出來，那么我們經常用到Data Report，在這里我說的是直接用記錄集rs給Data Report設數據源。為了快速將查詢結果中的字段加入到Data Report，我們先來建一個DataEnvironment1，設置好DataEnvironment1中的Connection1的連接，然后在DataEnvironment1中的Connection1中右鍵添加子命令Command1，在Command1上右鍵，屬性，選擇SQL語句，將我們的查詢語句寫進去，確定，完畢后就可以看到我們希望顯示的字段了。如果需要，可以添加多個子命令。然后新建一個DataReport1，點住DataEnvironment1中的Command1不放，直接拖到DataReport1中的細節區，然后再根據需要調整各字段位置就行了。注意要將細節區中的各個textbox的DataMember置空。然后在程序里面寫代碼就可以了。如Dim rsdr As New ADODB.Recordset

        Set rsdr = Conn.Execute(sqlall)

        Set drqueryall.DataSource = rsdr

        drqueryall.Show

原文轉自：http://www.anti-gravitydesign.com