1,453
社区成员
发帖
与我相关
我的任务
分享水晶报表的问题，如何用程序添加一个目标？
水晶报表的问题，如何用程序添加一个目标？比如ITextObject，ILineObject，或IBoxObject
最好能给出一段代码!
最好能给出一段代码!
...全文
请发表友善的回复…
发表回复
jiang8360 2004-09-03
- 打赏
- 举报
up
sanyou98 2004-09-02
- 打赏
- 举报
up
sinall 2004-09-02
- 打赏
- 举报
怎么没人回答水晶报表的问题，
ft
ft
junki 2004-09-02
- 打赏
- 举报
用VC作成DLL动态链接库吗？
要用时，直接调用就可以了
参考……
要用时，直接调用就可以了
参考……
sonyge 2004-09-02
- 打赏
- 举报
要是能给出一段VC代码就好了
sonyge 2004-09-02
- 打赏
- 举报
太好了，痛哭流涕了，呜呜！！！！
sangshuyezi 2004-09-02
- 打赏
- 举报
'增加线框
xtRpt.Sections("D").AddBoxObject 0, 0, 1000, xtRpt.Sections("D").Height
xtRpt.Sections("D").AddBoxObject 0, 0, 1000, xtRpt.Sections("D").Height
sangshuyezi 2004-09-02
- 打赏
- 举报
Dim xtRpt As New CRAXDRT.Report '定义报表对象
With xtRpt.Sections("PH").AddTextObject(strReport(1), 0, 0) '报表页头增加一文本
.setText "文本对象"
.Width = 2000
.Font.Name = 字体名称
.Font.Size = 12
.Font.Bold = True
.Font.Italic = True
.HorAlignment = crHorCenterAlign
End With
'明细处增加线
xtRpt.Sections("D").AddLineObject 0, 100, 1000, 100
'增加线框
xtRpt.Sections("D").AddBoxObject(0, 0, 1000, xtRpt.Sections("D").Height)
With xtRpt.Sections("PH").AddTextObject(strReport(1), 0, 0) '报表页头增加一文本
.setText "文本对象"
.Width = 2000
.Font.Name = 字体名称
.Font.Size = 12
.Font.Bold = True
.Font.Italic = True
.HorAlignment = crHorCenterAlign
End With
'明细处增加线
xtRpt.Sections("D").AddLineObject 0, 100, 1000, 100
'增加线框
xtRpt.Sections("D").AddBoxObject(0, 0, 1000, xtRpt.Sections("D").Height)
