1.概述 在許多組態(tài)控制軟件中，都提供了報表的功能，可滿足不了各種客戶的報表需求，不可避免的碰到各種各樣的報表。現(xiàn)在大多數(shù)組態(tài)軟件支持嵌入VB程序，可以再VB平臺下作出報表嵌入到組態(tài)程序中。在VB平臺下制作報表大致有兩種選擇：使用VB自帶的Data Report控件和借助第三方軟件。使用Data Report控件有兩點局限：第一DataReport本身提供的控件很少卻功能很弱，與數(shù)據(jù)環(huán)境邦定得太死。第二DataReport沒用提供分欄等復(fù)雜的打印功能；借助第三方軟件功能復(fù)雜多樣需要學(xué)習(xí)，需要時間去理解掌握。利用VB本身提供的控件功能也可以輕松設(shè)計自己的復(fù)雜報表，簡單明了，適用于簡單和復(fù)雜報表，與大家共同探討。 2.設(shè)計報表紙 設(shè)計報表紙的容器(Form)也就是一張白紙,它具有Form.PrintForm功能，利用它作者可以任意發(fā)揮，只要在窗體能顯示的內(nèi)容都可以打印出來，制作打印所見即所得的報表。眾所周知，在窗體上可以放置VB提供的所有控件，如：Lable,TextBox,Line,Imge,MSHFGrid等各種控件，由用程序操作各種控件的結(jié)果，用數(shù)據(jù)庫內(nèi)的數(shù)據(jù)填充MSHFGrid,就可以作出圖文并茂的報表。設(shè)定報表紙張（form4）: 在工程中添加一窗體Form4。設(shè)定窗體的大小通與打印紙張大小相同、前景顏色、后景顏色、邊框形式、控制按鈕、滾動條、標題等項目，使窗體顯示為一張“白紙”。程序如下： Private Sub Form4_Load() With Form4 .Appearance = 0 Flat .AutoRedraw = 1 True .BackColor = &H80000005 背景顏色：白色 .BorderStyle = 0 None .Height = 15000 設(shè)置頁面的大小，即紙的大小， .Width = 11760 15000,11760相當于A3 .Top = 0 .Left = 0 .ClipControls = 0 False .FillStyle = 0 Solid .Caption = "paper" End With End Sub 3.表頭的設(shè)計 表頭包括報表的頁眉、頁腳、頁標題、日期、不規(guī)則表頭等。用Lable控件設(shè)計報表的題目。用Line控件在紙上畫出不規(guī)則表頭。用Lable,TextBox,Imge填充表頭的內(nèi)容，將標頭內(nèi)的所有同類的控件選中設(shè)定統(tǒng)一屬性。頁眉、頁腳、頁標題、日期、都可以用控件TextBox設(shè)計，程序運行時控制控件的顯示內(nèi)容，可以做出復(fù)雜表頭。 4.表體的設(shè)計 在窗體上添加控件MSHFlexGrid(Microsoft Hieerarchical FlexGrid),用鼠標拖動邊框，使其占據(jù)表體所需的面積，設(shè)定其屬性：編框、前景顏色、背景顏色、固定行數(shù)，固定列數(shù)，滾動條，行寬（若各行高度不一樣，可以在程序中設(shè)定各行的高度）。在程序中設(shè)定各列的寬度。MSHFlexGrid控件以網(wǎng)格形式顯示Recordset數(shù)據(jù)，可以將文本、圖片或者文本和圖片放在MSHFlexGrid的任意單元中，Row和Col屬性制定了MSHFlexGrid裝的當前單元。可以在代碼種植訂單前單元，也可以在運行時使用鼠標或者方向鍵來選定當前的單元。Text屬性引用當前單元的內(nèi)容。很遺憾MSHFlexGrid控件沒用打印功能，只能借助于Form控件的打印功能，實現(xiàn)報表打印。 Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 Height = 10305 設(shè)置高度容納一頁所有的行。 Left = 300 TabIndex = 0 Top = 780 Width = 4755 設(shè)置寬度容納一頁所有的列。 _ExtentX = 8387 _ExtentY = 18177 _Version = 393216 Rows = 26 設(shè)置一頁容納的行數(shù) FixedCols = 0 BackColorFixed = 255 BackColorBkg = -2147483639 GridColor = 8454016 GridColorFixed = 8454143 GridColorUnpopulated= 8421631 GridLines = 1 GridLinesUnpopulated= 3 MergeCells = 4 BorderStyle = 1 設(shè)置邊框：有邊框 Appearance = 0 GridLineWidthFixed= 1 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "宋體" Size = 12 設(shè)置字體的大小，行寬自動設(shè)定 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty _NumberOfBands = 1 _Band(0).Cols = 2 _Band(0).GridLineWidthBand= 1 End 上段程序是在設(shè)置MSHFlexGrid控件屬性自動產(chǎn)生的，以示參考 Sub MsgdWidth(ci As Integer, ccwidth() As Integer, Msgd As MSHFlexGrid) 設(shè)置格列的寬度 ci 列數(shù) ccwidth() 容納列寬度的數(shù)組,單位使用缺省單位 Dim i As Integer For i = 0 To ci - 1 msgrd.ColWidth(i) = ccwidth(i) Next i End Sub 5.為MSHFlexGrid準備數(shù)據(jù) MSHFlexGrid可以與各種數(shù)據(jù)空間邦定，能夠自動讀取數(shù)據(jù)。在報表打印中，我們不使用數(shù)據(jù)邦定，用程序代碼來控制填充MSHFlexGrid控件的每一單元格。使用ADO對象的Recordset來準備數(shù)據(jù)源，也可以用其他類似的方法獲得數(shù)據(jù)源的指針。 Sub opendata(t As String, restdata As adodb.Recordset) Dim constring, sqlstring As String Dim recon As adodb.Connection constring="Provider=SQLOLEDB.4;server=Datacenter;database=zbmis;uid=;pwd=" 數(shù)據(jù)源連接字 sqlstring = "select stid,sbbatchid,stlong from tn_stinfo where ckroundnum=" & ""_ & Trim(t) & "" & "order by stid" 數(shù)據(jù)篩選指令，t為數(shù)據(jù)篩選條件 restdata.Open sqlstring, constring, adOpenKeyset, adLockReadOnly 打開數(shù)據(jù)記錄，獲得記錄集 End Sub 6.填充MSHFlexGrid的單元格 用打開的數(shù)據(jù)源，填充MSHFlexGrid每一行，每一列，若最后一頁所有的行填充不滿，用“”來填充。若用彩色打印機可以控制每一單元格的顏色，制作多彩的報表。可以在表中單元任意各種添加頁計、總計、序號等數(shù)據(jù)。 Sub inputmsfh(ri As Integer, ci As Integer, restdata As adodb.Recordset, msgrd As MSHFlexGrid) ri，ci 是MSHFlexGrid的行數(shù)和列數(shù) Dim rk, ck As Integer msgrd.Rows = ri + 1 加一行列表頭 msgrd.Cols = ci For rk = 1 To ri With msgrd .Row = rk For ck = 0 To ci - 1 .Col = ck If restdata.EOF Or IsNull(restdata(ck)) Then .Text = "" Else .Text = Trim(restdata(ck)) End If Next ck If restdata.EOF = False Then restdata.MoveNext 控制記錄行將每行填滿， 若記錄到了文件尾或記錄的列內(nèi)容為null則用“”來填充 End With Next rk End Sub 列表頭的填充 Sub msgrdname(ci As Integer, ccstring() As String, msgrd As MSHFlexGrid) ci 列數(shù) ccstring() 容納列表頭的數(shù)組 Dim i As Integer With msgrd msgrd.Cols = ci msgrd.Rows = 1 .Row = 0 For i = 0 To ci - 1 .Col = i .Text = ccstring(i) Next i End With End Sub 7.關(guān)于分頁和分欄 首先確定分欄數(shù)，若不分欄，窗體Form4頁面上只添加一個控件MSHFlexGrid1；若分兩欄，在窗體Form4頁面上添加兩個并列控件MSHFlexGrid1 ，MSHFlexGrid2；依次類推。下面的程序中支持分三欄以下的格式。各欄之間的距離，可以直接在窗體上確定。其次，計算報表的頁數(shù)控制打印的次序。 Private Sub Command1_Click() Dim restdata As New adodb.Recordset Dim t As String 數(shù)據(jù)篩選條件 Dim ccstring() As String 列標題名稱數(shù)組 Dim ccwidth() As Integer 列寬 Dim cc, rc As Integer 一頁的行數(shù)rc，頁數(shù)cc Dim prc, plc As Integer 頁數(shù)prc，攔數(shù)plc Dim rctotal As Integer 總行數(shù) Dim prc1, I As Integer t = Form1.TextBox1.Text 從Form1.TextBox1.Text輸入查詢的條件 Call opendata(t, restdata) 打開數(shù)據(jù)源，獲得記錄集 rctotal = restdata.RecordCount 取出總行數(shù) Print rctotal If rctotal > 0 Then cc = restdata.Fields.Count 取出總列數(shù) ReDim ccstring(3) As String ReDim ccWidth(3) As String plc = 2 設(shè)定分兩欄 rc = 30 每頁30行 ccwidth(0)=600 列寬數(shù)組初始化，根據(jù)列的字符寬度設(shè)定列寬度 ccwidth(1)=1600 ccwidth(2)=1800 ccstring(0) = "管號" 列表頭數(shù)組初始化 ccstring(1) = "爐批號" ccstring(2) = "米長" prc = Int(rctotal / (rc * plc)) 計算總頁數(shù) prc1 = rctotal Mod (rc * plc) If prc1 > 0 Then prc = prc + 1 restdata.MoveFirst For i = 1 To prc Form4.Text1 = rctotal Select Case plc Case 1 不分欄 Call MsgdWidth(Msgd1 As MSHFlexGrid1) Call msgrdname(cc, ccstring(), Form4.MSHFlexGrid1) Call inputmsfh(rc, cc, restdata, Form4.MSHFlexGrid1) Form4.MSHFlexGrid2.Visible = False Form4.MSHFlexGrid3.Visible = False Case 2 分兩欄 Call MsgdWidth(Msgd1 As MSHFlexGrid1) 第一欄列寬 Call MsgdWidth(Msgd1 As MSHFlexGrid2) 第二欄列寬 Call msgrdname(cc, ccstring(), Form4.MSHFlexGrid1) 第一欄列頭 Call msgrdname(cc, ccstring(), Form4.MSHFlexGrid2) 第二欄列頭 Call inputmsfh(rc, cc, restdata, Form4.MSHFlexGrid1) 第一欄內(nèi)容 Call inputmsfh(rc, cc, restdata, Form4.MSHFlexGrid2) 第二欄內(nèi)容 Form4.MSHFlexGrid3.Visible = False Case 3 分三欄 Call MsgdWidth(Msgd1 As MSHFlexGrid1) Call MsgdWidth(Msgd1 As MSHFlexGrid2) Call MsgdWidth(Msgd1 As MSHFlexGrid3) Call msgrdname(cc, ccstring(), Form4.MSHFlexGrid1) Call msgrdname(cc, ccstring(), Form4.MSHFlexGrid2) Call msgrdname(cc, ccstring(), Form4.MSHFlexGrid3) Call inputmsfh(rc, cc, restdata, Form4.MSHFlexGrid1) Call inputmsfh(rc, cc, restdata, Form4.MSHFlexGrid2) Call inputmsfh(rc, cc, restdata, Form4.MSHFlexGrid3) End Select Form4.Show MsgBox ("打印第" & i & "頁" Form4.PrintForm 輸出到系統(tǒng)缺省打印機 Next i Else MsgBox "查無此記錄" End If restdata.Close 關(guān)閉記錄 set restdata = Nothing 釋放緩沖區(qū) End Sub 8. 結(jié)束語 所有的程序 Mcrosoft Visual Basic 6.0下調(diào)試通過，還有許多排錯指令，由于篇幅所限都已去掉，在實際運用中，使用者可以加入，以增強程序的強壯性。若有Bug請來信一起探討。 聯(lián)系方式：電話: 0546-8850085 Email: Deckhand@sina100.com 地址：山東省淄博市張店區(qū)中埠鎮(zhèn)勝利鋼管有限公司 郵編：255082