安装了水晶报表控件后,怎么调用?请给出代码范例。

解决方案 »

  1.   

    CrystalReport1.ReportFileName = App.Path + "\\Carpass.rpt"
        CrystalReport1.Connect = "ODBC;DNS=;UID=sa;PWD=sa;DSQ='数据库" 
        Rst.Open ssql, Conn, adOpenKeyset, adLockOptimistic
        CrystalReport1.SQLQuery = "select * from tablename"
        CrystalReport1.DiscardSavedData = True
        CrystalReport1.Destination = crptToWindow
        CrystalReport1.WindowState = 2
        CrystalReport1.Action = 1