| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 专业报表的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34311) |
| -- 作者：hudicaca -- 发布时间：2013/6/5 8:43:00 -- 专业报表的问题 求教两个问题: 一是,设置某一个单元格里的文字位置 用rt.Cells(11,1).Style.Spacing.Top = 10 为什么没作用? 二是,插入的标题想和后面的表格间距调大一点,用rt.Style.LineSpacing = 200 么,为什么也不起作用? 盼高手解答,谢谢!! |
| -- 作者：Bin -- 发布时间：2013/6/5 8:47:00 -- 测试了有用啊.怎么没用. 你其他代码有问题吧. |
| -- 作者：XYT -- 发布时间：2013/6/5 8:50:00 -- rt.Style.Padding.Top = 20 [此贴子已经被作者于2013-6-5 9:22:12编辑过]
|
| -- 作者：hudicaca -- 发布时间：2013/6/5 10:18:00 -- 设置某一个单元格里的文字位置,比如要靠近右下方,怎么实现..我试了很多代码,都不会动..单元格里的文字还是居中.. |
| -- 作者：Bin -- 发布时间：2013/6/5 10:22:00 -- 就是使用3楼XYT告诉你的这个属性 http://www.foxtable.com/help/topics/1178.htm |
| -- 作者：hudicaca -- 发布时间：2013/6/5 10:52:00 -- 我是用 rt.Style.GridLines.All = New prt.Linedef \'设置网格线 |
| -- 作者：XYT -- 发布时间：2013/6/5 10:55:00 -- rx.Style.Spacing.All = 1 \'内容和网格线的距离为1 网格试下用这个 |
| -- 作者：Bin -- 发布时间：2013/6/5 10:56:00 -- Dim doc As New PrintDoc() \'定义一个报表 Dim rt As prt.RenderText \'定义一个文本对象 For i As Integer = 0 To 10 rt = New prt.RenderText() \'创建文本对象 rt.Text = "Hello Foxtable " & i \'设置文本对象的内容 rt.Width = "Auto" \'自动设置宽度 If i = 2 Then rt.Style.Padding.Top = 25 \'上边距25毫米 rt.Style.Padding.Left = 15 \'左边距5毫米 Else rt.Style.Padding.All = 2 \'所有方向的边距都设为2 rt.Style.Spacing.All = 2 End If rt.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框 doc.Body.Children.Add(rt) \'将文本对象加入到报表 Next doc.Preview() \'预览 |
| -- 作者：hudicaca -- 发布时间：2013/6/5 10:59:00 -- 还是不行....这一个单元格里的 文字 依然在左上角.... |
| -- 作者：hudicaca -- 发布时间：2013/6/5 11:02:00 -- 以下是引用Bin在2013-6-5 10:56:00的发言：
Dim doc As New PrintDoc() \'定义一个报表
Dim rt As prt.RenderText \'定义一个文本对象
For i As Integer = 0 To 10
rt = New prt.RenderText() \'创建文本对象
rt.Text = "Hello Foxtable " & i \'设置文本对象的内容
rt.Width = "Auto" \'自动设置宽度
If i = 2 Then
rt.Style.Padding.Top = 25 \'上边距25毫米
rt.Style.Padding.Left = 15 \'左边距5毫米
Else
rt.Style.Padding.All = 2 \'所有方向的边距都设为2
rt.Style.Spacing.All = 2
End If
rt.Style.Borders.All = New prt.Linedef(1, Color.Red) \'设置边框
doc.Body.Children.Add(rt) \'将文本对象加入到报表
Next
doc.Preview() \'预览
|