哪里有好的报表控件，我实在受不了datareport了！！！

去http://bbs.tencent.com/cgi-bin/admin/bulletin_show_content?Pmsg_id=1201看看，那儿能下载到Crystal Report8.5

解决方案 »

  1.   

    谢谢，不过KDGrid2000哪里有，我想试试！！！！
      

  2.   

    我已经下载了水晶报表，这类东西怎么用？
    怎么和vb联系起来？？太复杂了，有没有中文的教程？另外哪里有activereport的教程？？？？
      

  3.   

    http://www.vckbase.com/ocx/ocx_report/
    6M-00052FY-DP48000-0000000
      

  4.   

    这是我以前写地一段代码。用的是Crystal Report6.0。估计8.5用法差不多。其中strPrintType是字符变量。
        '更新报表
        rpt1.Formulas(0) = "title='考勤登记表'"
        rpt1.Formulas(1) = "issue='" + Left(strDate(1), 4) + "年" + Mid(strDate(1), 5, 2) + "月" + Mid(strDate(1), 7, 2) + "日" + _
            " - " + Left(strDate(7), 4) + "年" + Mid(strDate(7), 5, 2) + "月" + Mid(strDate(7), 7, 2) + "日'"
        For i = 1 To 7
            rpt1.Formulas(i + 1) = "date" + Trim(str(i)) + "='" + Mid(strDate(i), 5, 2) + "月" + Mid(strDate(i), 7, 2) + "日'"
        Next i
        rpt1.Connect = "Access"
        rpt1.ReportTitle = "考勤记录"
        rpt1.WindowTitle = "考勤记录 " + Mid(rpt1.Formulas(1), 8, Len(rpt1.Formulas(1)) - 8)
        rpt1.ReportFileName = App.Path + "\result.rpt"
        rpt1.WindowState = crptMaximized
        If strPrintType = "crptToWindow" Then
            rpt1.Destination = crptToWindow
        Else
            rpt1.Destination = crptToFile
        End If
        rpt1.PrintFileName = strFileName
        rpt1.PrintFileType = crptPagedText
    '    strSQL = "{PrintRecord.ID}='1001'"     '过滤条件
        rpt1.Action = 1
        cmdPrint.Enabled = True
        cmdToFile.Enabled = True
        ProgressBar1.Visible = False
        Screen.MousePointer = vbDefault
        If strPrintType = "crptToFile" Then
            MsgBox "考勤报表文件已经生成。", vbInformation, "信息"
        End If
      

  5.   

    就我用过的6.0和8.5而言，6.0是单独的报表设计软件，所以发布的程序中总带有*.rpt文件。8.5则改为设计器方式，安装完成后Start中只有一些例子，使用方法和VB自带的DataReport差不多。下面是一个使用文档http://www.vckbase.com/ocx/ocx_report/CrystalReport8/kit8.zip