没事进来聊聊有关 vb报表吧。（我最高只能出50分，我想加但没办法，）

用过 Fox 吗
可以用 Fox 的方法来实现

解决方案 »

  1.   

    用crystl控件吧，很好的！vb6中没有默认安装但是在安装盘里有是和vb5同一个版本
      

  2.   

    就用datareport控件吧~~很简单的
      

  3.   

    世界公认最简单、最强的报表控件
    activereport
    www.wxyanye.com.cn/jxc.htm
      

  4.   

    datareport  倒是用过不过对我那里好象不太合适，最好是能跟excel连起来
      

  5.   

    有数据库吗?如有的话,就用datareport好了,用数据环境与datareport相连.很简单的.
      

  6.   

    或者用PRINTER也可以，而且控制很方便的
      

  7.   

    vba,先把数据导入excel
    就ok了呀
      

  8.   

    但是我就是不知道怎么导入excel 楼上兄能说具体点吗？
      

  9.   

    你可以在EXCEL中建立报表模版
    下面对表的拷贝进行操作
    Dim yourSou, yourDest As String
    yourSou = App.Path & "\Excels\你的报表"
    yourDest = App.Path & "\Excels\报表的拷贝"
    FileCopy yourSou, yourDest '得到表的拷贝
    建立对excel的引用
    Dim kwApp as Excel.Application
    Set kwApp = New Excel.Application
    Set kwApp = CreateObject("Excel.Application") '激活EXCEL应用程序
    xlApp.Visible = False '隐藏Excel窗口
    Set kwBook = kwApp.Workbooks.Open(strDest)
    '打开工作簿，strDestination为一个Excel报表文件
    Set kwSheet = kwBook.Worksheets(1) '设定工作表
    下面是打印
    kwSheet.PrintOut
    kwApp.quit'退出Excel