急!!! 关于动态水晶报表的问题。
Dim crReport As New CrystalReport1()
Dim crFormulas As FormulaFieldDefinitions
'formulas that will contain the field name
Dim crFormulaTextField1 As FormulaFieldDefinition
Dim crFormulaTextField2 As FormulaFieldDefinition
Dim crFormulaTextField3 As FormulaFieldDefinition
'formulas that will contain the field data
Dim crFormulaDBField1 As FormulaFieldDefinition
Dim crformulaDBField2 As FormulaFieldDefinition
'formula that will contain the group information
Dim crFormulaGroup1 As FormulaFieldDefinition
Public Sub New(ByVal field1 As String, ByVal field2 As String, ByVal group1 As String)
MyBase.New()
SqlDataAdapter1.Fill(DataSet11, "项目表")
crFormulas = crReport.DataDefinition.FormulaFields
crFormulaTextField1 = crFormulas.Item(0)
crFormulaTextField2 = crFormulas.Item(1)
crFormulaTextField3 = crFormulas.Item(2)
crFormulaDBField1 = crFormulas.Item(3)
crformulaDBField2 = crFormulas.Item(4)
crFormulaGroup1 = crFormulas.Item(5)
'pass in the Field names Chr(34) is double quotes character
crFormulaTextField1.Text = Chr(34) & field1 & Chr(34)
crFormulaTextField2.Text = Chr(34) & field2 & Chr(34)
crFormulaTextField3.Text = Chr(34) & group1 & Chr(34)
crFormulaDBField1.Text = "{项目表." & field1 & "}"
crformulaDBField2.Text = "{项目表." & field2 & "}"
crFormulaGroup1.Text = "{项目表." & group1 & "}"
crReport.SetDataSource(DataSet11)
CrystalReportViewer1.ReportSource = crReport
我用上述程序建了个动态水晶报表,但发现一个问题,由于是动态地取字段,无法直接对数值型字段格式化,如果字段定义为int型,则系统自动让它显示两位小数。我想问问怎样使int型字段只显示整数,而money型仍显示两位小数。
问题点数:100、回复次数:5Top
1 楼riluo(日落雁行斜)回复于 2002-12-12 16:12:20 得分 0
^^Top
2 楼xumahua(~跳啊跳~)回复于 2002-12-12 16:13:49 得分 100
那你就在sql语句中用函数控制得了。Top
3 楼leaf4646(leaf)回复于 2002-12-12 16:24:56 得分 0
to xumahua(xumahua)
请举个例子好吗?int型本来就是整型,但水晶报表默认有两位小数。Top
4 楼xumahua(~跳啊跳~)回复于 2002-12-12 17:09:00 得分 0
是吗?不好意思,我没试过。关注!Top
5 楼leaf4646(leaf)回复于 2002-12-13 15:04:11 得分 0
to xumahua(xumahua)
我在sql语句中用函数控制果然做过去了,谢谢。
加分!!Top




