博客园-阿泰的软件实用主义http://www.cnblogs.com/babyt/水晶报表/BOEzh-cnMon, 13 Oct 2008 00:43:56 GMTMon, 13 Oct 2008 00:43:56 GMT60VS.Net中向报表模板中传递参数与公式http://www.cnblogs.com/babyt/archive/2008/10/10/1307892.html阿泰阿泰Fri, 10 Oct 2008 03:34:00 GMThttp://www.cnblogs.com/babyt/archive/2008/10/10/1307892.htmlhttp://www.cnblogs.com/babyt/comments/1307892.htmlhttp://www.cnblogs.com/babyt/archive/2008/10/10/1307892.html#Feedback0http://www.cnblogs.com/babyt/comments/commentRss/1307892.htmlhttp://www.cnblogs.com/babyt/services/trackbacks/1307892.html本文接：《直连数据库拉模式的水晶报表编程实现之极简教程 》

编辑上文之模板，增加一个参数myid，两个公式。公式xx1中是对参数myid进行操作。公式xx2内容为空，在程序中编程控制此公式。

 

全部文件代码段如下：

 

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Web

Partial Class _Default
    Inherits System.Web.UI.Page
    Private myReport As ReportDocument

    Private Sub ConfigureCrystalReports()
        Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
        myConnectionInfo.DatabaseName = "xxx"
        myConnectionInfo.UserID = "xxx"
        myConnectionInfo.Password = "xxx"
        myConnectionInfo.ServerName = "xxx"

        myReport = New ReportDocument()
        Dim reportPath As String = Server.MapPath("crystalreport1.rpt")


        '加载报表文件
        myReport.Load(reportPath)

        '-----------------------------------------------
        '传递公式字段
        '注意：公式字段在将rpt传递给crviewr控件前操作！
        '需要特别注意的是：如果你的公式返回的是一个文本，必须用单引号刮起来
        myReport.DataDefinition.FormulaFields("xx2").Text = "'这是一个公式'"
        '传递参数
        myReport.ParameterFields("myId").CurrentValues.AddValue(1001)
        '-----------------------------------------------

        CrystalReportViewer1.ReportSource = myReport

        ''-----------------------------------------------
        ''传递报表参数的另一种写法，将参数传递给viewer
        'Dim paramFields = New ParameterFields()
        'Dim paramField = New ParameterField()
        'Dim discreteVal = New ParameterDiscreteValue()

        ''定位参数
        'paramField.ParameterFieldName = "myId"
        ''定义参数值
        'discreteVal.Value = 101
        ''赋值
        'paramField.CurrentValues.Add(discreteVal)
        'paramFields.Add(paramField)
        'CrystalReportViewer1.ParameterFieldInfo = paramFields
        ''-----------------------------------------------

        SetDBLogonForReport(myConnectionInfo, myReport)

    End Sub

    Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)
        Dim myTables As Tables = myReportDocument.Database.Tables
        For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
            Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
            myTableLogonInfo.ConnectionInfo = myConnectionInfo
            myTable.ApplyLogOnInfo(myTableLogonInfo)
        Next
    End Sub

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        ConfigureCrystalReports()
    End Sub
End Class

 

 效果如下：
 



[新闻]Google Android手机大受欢迎,已经订出150万台
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>直连数据库拉模式的水晶报表编程实现之极简教程http://www.cnblogs.com/babyt/archive/2008/10/09/1307346.html阿泰阿泰Thu, 09 Oct 2008 08:16:00 GMThttp://www.cnblogs.com/babyt/archive/2008/10/09/1307346.htmlhttp://www.cnblogs.com/babyt/comments/1307346.htmlhttp://www.cnblogs.com/babyt/archive/2008/10/09/1307346.html#Feedback0http://www.cnblogs.com/babyt/comments/commentRss/1307346.htmlhttp://www.cnblogs.com/babyt/services/trackbacks/1307346.html 拉模式也就是最基本的水晶报表制作方法，直接连接数据库生成报表。

这个代码其实在水晶报表自带的示例里有的，这里再拿出来讲一下。

创建报表时，输入了数据库服务器的相关参数

 

但是执行后，出现如下信息提示。您请求的报表需要更多信息。

此时编辑aspx页面对应的代码，将数据库的认证信息赋过去就行了。

代码为：

 

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Web

Partial Class _Default
    Inherits System.Web.UI.Page
    Private myReport As ReportDocument

    Private Sub ConfigureCrystalReports()
        Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
        myConnectionInfo.DatabaseName = "xxxx"
        myConnectionInfo.UserID = "xxx"
        myConnectionInfo.Password = "xxxx"
        myConnectionInfo.ServerName = "xxxx"

        myReport = New ReportDocument()
        Dim reportPath As String = Server.MapPath("crystalreport1.rpt")
        myReport.Load(reportPath)
        CrystalReportViewer1.ReportSource = myReport
        SetDBLogonForReport(myConnectionInfo, myReport)
    End Sub

    Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)
        Dim myTables As Tables = myReportDocument.Database.Tables
        For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
            Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
            myTableLogonInfo.ConnectionInfo = myConnectionInfo
            myTable.ApplyLogOnInfo(myTableLogonInfo)
        Next
    End Sub

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        ConfigureCrystalReports()
    End Sub
End Class

 

 



[新闻]13个大文件邮件传送服务
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>创建基于informix的ODBC DSNhttp://www.cnblogs.com/babyt/archive/2008/10/08/1305740.html阿泰阿泰Wed, 08 Oct 2008 07:09:00 GMThttp://www.cnblogs.com/babyt/archive/2008/10/08/1305740.htmlhttp://www.cnblogs.com/babyt/comments/1305740.htmlhttp://www.cnblogs.com/babyt/archive/2008/10/08/1305740.html#Feedback0http://www.cnblogs.com/babyt/comments/commentRss/1305740.htmlhttp://www.cnblogs.com/babyt/services/trackbacks/1305740.html阅读全文

[新闻]微型博客Twitter取消IM服务 称其ROI差
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>使用特殊字体实现特殊报表效果http://www.cnblogs.com/babyt/archive/2008/10/08/1306179.html阿泰阿泰Wed, 08 Oct 2008 03:17:00 GMThttp://www.cnblogs.com/babyt/archive/2008/10/08/1306179.htmlhttp://www.cnblogs.com/babyt/comments/1306179.htmlhttp://www.cnblogs.com/babyt/archive/2008/10/08/1306179.html#Feedback0http://www.cnblogs.com/babyt/comments/commentRss/1306179.htmlhttp://www.cnblogs.com/babyt/services/trackbacks/1306179.html通过设置字体实现特殊字符显示，适用于Textbox，字段，参数字段，公式等。

需要注意的是，如果使用的是特殊字体，没有该字体的机器是不能正常显示的。
像 Winddings字体，一般的windows系统都自带。但是如果web应用，使用非windows机器浏览的时候可能就不能正确显示。

 

仅做一个字体示例，报表就没必要做了。

0123456789
ABCDEFGHIJKLMNOPQRSTUVWXYZ
abcdefghijklmnopqrstuvwxyz

 

使用不同字体效果为：

 

关联阅读：

用HTML格式实现特殊效果呈现

 



[新闻]微型博客Twitter取消IM服务 称其ROI差
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>2008年10月答疑贴http://www.cnblogs.com/babyt/archive/2008/10/07/1305461.html阿泰阿泰Tue, 07 Oct 2008 05:17:00 GMThttp://www.cnblogs.com/babyt/archive/2008/10/07/1305461.htmlhttp://www.cnblogs.com/babyt/comments/1305461.htmlhttp://www.cnblogs.com/babyt/archive/2008/10/07/1305461.html#Feedback12http://www.cnblogs.com/babyt/comments/commentRss/1305461.htmlhttp://www.cnblogs.com/babyt/services/trackbacks/1305461.html有问题请在此贴跟贴回复，我亦会在此贴回复。

请不要到无关的帖子中跟帖

请尽量描述清楚你的问题和需要，我的理解能力不是很强，呵呵。

 

请您遵守以下规则：

提问内容中请不要出现 感叹号，跪求等字样。

请尽量不要称呼我为楼主。

请尽量不要冒充女性，我回答问题不分男女。

 

谢谢。

 



[新闻]用手机聊Gtalk的方法以及应用总结
博客园首页 社区 新闻频道 小组 博问 网摘 闪存]]>