怎样把公式中的内容在vb.net程序里赋值

[loveme855]

我已在vb.net中找到赋值语句,可是执行结果就是不对,麻烦高手给看一下:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String
gCre.Load("D:\Documents and Settings\Administrator\桌面\Report15.rpt")
gCre.DataDefinition.FormulaFields.Item(1).Text = "if {ta01_s1240.answ} > 10 then crFuchsia else crNoColor"
CrystalReportViewer1.ReportSource = gCre.FilePath
End Sub

[xwdd129]

这样用：

FormulaFieldDefinition formulaField;

// 按名称获取 FormulaFieldDefinition
formulaField = Report.DataDefinition.FormulaFields[formulaFieldName];
formulaField.Text = "***";

[loveme855]

楼上的你能说一下那个FormulaFieldDefinition formulaField;是怎么定义的马？
我怎么感觉shared里没有定义公式字段啊！！！！！！！！！！
谢谢你了！！！！！！！
我就有40分了！！！！
如果以后有什么需要帮忙的，一定会顶的！！！！
：）

[loveme855]

老大再说清楚点巴!!!!!!!!!!!!
不行啊!!!!!!!!!!!!!!
还有一个比较难的问题:报表里的格式公式能取出来吗?

[xwdd129]

不是shared里，而是CrystalDecisions.CrystalReports.Engine

关于各种字段的类你可以看看MSDN这里：
ms-help://MS.MSDNQTR.2003FEB.2052/crystlrf/html/crlrffielddefinitionclasstopic.htm

[loveme855]

帅哥,还是不行啊!!!!!!!
Dim asaa As CrystalDecisions.CrystalReports.Engine.FormulaFieldDefinition
gCre.Load("D:\Documents and Settings\Administrator\桌面\陈晓静\Report15.rpt")
asaa = gCre.DataDefinition.FormulaFields("ll")
这样也不能用!!!!!!!!!!!!!!!
您能再说具体点吗?

[xwdd129]

这个并不难，你参考海波的文章再试试看：

编程更改公式字段示例代码
http://blog.csdn.net/haibodotnet/archive/2003/11/19/21531.aspx



----------------------------------------------------
还有一个比较难的问题:报表里的格式公式能取出来吗?


>>>这个问题是什么意思，是要取报表的格式还是公式的格式？

[loveme855]

编程更改公式字段还是不行!!!!!!!!!!!!!
我的代码如下:
Public Class Form1
Inherits System.Windows.Forms.Form
Dim gCre As New ReportDocument
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String
Dim asa As CrystalDecisions.CrystalReports.Engine.FormulaFieldDefinitions
Dim asaa As CrystalDecisions.CrystalReports.Engine.FormulaFieldDefinition
gCre.Load("D:\Documents and Settings\Administrator\桌面\陈晓静\Report15.rpt")
CrystalReportViewer1.ReportSource = gCre.FilePath
CrystalReportViewer1.RefreshReport()

asaa = gCre.DataDefinition.FormulaFields("pop")
asaa.Text = "{ta01_s1240.ncct}/ {ta01_s1240.ncit} "
CrystalReportViewer1.RefreshReport()
结果:

啊!!!!!!1
我本来想把图贴出来,不过好像不让贴!!!!!!!!!!!!!
结果就是没有任何东西,我把pop放在详细字段里了!!!!!!!!!!
你在帮忙看一看吧!!!!!!!!

[loveme855]

在水晶报表里,有一种公式叫格式公式,是专管背景色啊,字体啊的,在水晶报表的那个DataDefinition.FormulaFields里是没有这个公式的,所以不知道怎么取