专业报表中用什么语句能自由控制二个表格在报表中的位置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

专业报表中用什么语句能自由控制二个表格在报表中显示的位置

[此贴子已经被作者于2024/11/8 8:54:03编辑过]

举例说明一下怎么弄表格？

[此贴子已经被作者于2024/11/8 9:21:30编辑过]

直接指定X、Y的坐标位置就行了。比如这样：

'加入查询码

Dim rx As New prt.RenderText '定义一个文本对象

rx.Style.Font = New Font("黑体", 18)

rx.Text = "内服" '设置文本对象的内容

rx.X = 155

rx.Y = 40

rx.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框

doc.Body.Children.Add(rx) '将文本对象加入到报表

[此贴子已经被作者于2024/11/8 9:14:41编辑过]

此主题相关图片如下：标签1.png

Dim rt As New prt.RenderTable() '定义一个表格对象

rt.Style.Font = New font("宋体", CStr(Tables("标签打印设置").Current("服务方法字体大小")))

rt.Cols.Count = 1'报表_table1总列数

rt.Width = CStr(Tables("标签打印设置").Current("服务方法宽度"))

rt.X = 25

rt.y = 0

'Dim a As Integer = CStr(Tables("标签打印设置").Current("服用方法上位置"))

'rt.y = "Prev.top +a"

rt.Cells(0, 0).Text = "内服"

rt.CellStyle.Spacing.All = 1.2 '单元格内容缩进1毫米

rt.Style.GridLines.All = New prt.Linedef '报表_table1网格线

rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center

'rt.Y = CStr(Tables("标签打印设置").Current("离表格的距离"))

doc.Body.Children.Add(rt) '将表格对象加入到报表中

我是这样写的，但不行

不要用表格，直接给文字加边框

http://www.foxtable.com/webhelp/topics/1174.htm

参考代码：

Dim doc As New PrintDoc() '定义一个报表

doc.PageSetting.Width = 50 '纸张宽度为210毫米

doc.PageSetting.Height = 70 '纸张高度为297毫米

Doc.PageSetting.LeftMargin = 2 '设置左边距

Doc.PageSetting.RightMargin = 2 '设置右边距

Doc.PageSetting.TopMargin = 2 '设置上边距

Doc.PageSetting.BottomMargin = 2 '设置下边距

'加入标题

Dim rx As New prt.RenderText() '定义一个文本对象

rx.text = "**单"

rx.Style.Font = New Font("方正小标宋简体", 14) '设置文本对象的字体，语法：New Font(Name, Size, Style)

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列

rx.Style.Spacing.top = 3 '和上面的对象距离0毫米

doc.Body.Children.Add(rx) '将文本对象加入报表

'加入服用方法

rx = New prt.RenderText() '创建文本对象

rx.Style.Font = New font("宋体", 12)

rx.text = "内服"

rx.X = 35

rx.y = 4

rx.Width = 12 '对象宽度为40毫米

rx.Height = 7 '对象宽度为40毫米

rx.Style.Borders.All = New prt.Linedef(0.5, Color.Red) '设置边框

rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中

rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中

doc.Body.Children.Add(rx) '将对象加入到报表中

'加入病人详情

Dim rt As New prt.RenderParagraph() '定义一个段落对象

Dim f1 As New Font("宋体", 10, FontStyle.Bold) '定义一个加粗的字体

Dim f2 As New Font("宋体", 10, FontStyle.Underline) '定义一个加粗加下划线的字体

rt.Content.AddText("姓名：", f1)

rt.Content.AddText("张三" & Chr(13) & Chr(10) & "", f2)

rt.Content.AddText("性别：", f1)

rt.Content.AddText("男" & Chr(13) & Chr(10) & "", f2)

rt.Content.AddText("年龄：" , f1)

rt.Content.AddText("76", f2)

'rt.Style.Spacing.top = 10 '和上面的对象距离10毫米

rt.Style.LineSpacing = 150 '设置1.5倍行距

doc.body.Children.add(rt)

doc.Preview() '预览

[此贴子已经被作者于2024/11/8 10:56:41编辑过]

回复的太好！对我们基础不好的，有非常大的帮助

主题：专业报表中用什么语句能自由控制二个表格在报表中的位置