[求助]专业报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

首先感谢老师的指点，以下是我自己在您给出的代码上加入的内容，也不知道是否正确？还请老师指点。

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

Dim t As Table = Tables("会议纪要") '定义一个数据表

For i As Integer = t.TopPosition To t.BottomPosition

Dim r As Row = t.Rows(i)

Dim ra As New prt.RenderArea '定义一个容器

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

ra.Style.Spacing.All = 1 '设置各个方面的间隔

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

ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割

ra.SplitVertBehavior = prt.SplitBehaviorEnum.SplitIfNeeded '允许垂直分割

Doc.Body.ChildRen.Add(ra) '将文本对象(容器)加入到报表中

rt = New prt.RenderText '创建文本对象

rt.Text = "中共涟源市杨市镇中心卫生院支部委员会" '设置文本对象的内容

rt.X = 40

rt.Y = 2

ra.Children.Add(rt) '添加到容器中

rt = New prt.RenderText

rt.Text = "时间:"

rt.X = 2

rt.Y = "Prev.Bottom + 2" '垂直坐标位于迁移对象之下的2毫米

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = r("时间")

rt.X = 20

rt.Y = "Prev.Top" '垂直坐标和前一对象相同

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = "地点:"

rt.X = 2

rt.Y = "Prev.Bottom + 2" '垂直坐标位于迁移对象之下的2毫米

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = r("地点")

rt.X = 20

rt.Y = "Prev.Top" '垂直坐标和前一对象相同

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = "与会党员:"

rt.X = 2

rt.Y = "Prev.Bottom + 2" '垂直坐标位于迁移对象之下的2毫米

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = r("与会党员")

rt.X = 20

rt.Y = "Prev.Top" '垂直坐标和前一对象相同

ra.Children.Add(rt)

If r("列席人员") <> Nothing Then

rt = New prt.RenderText

rt.Text = "列席人员:"

rt.X = 2

rt.Y = "Prev.Bottom + 2"

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = r("列席人员")

rt.X = 20

rt.Y = "Prev.Top"

ra.Children.Add(rt)

End If

If r("上级领导") <> Nothing Then

rt = New prt.RenderText

rt.Text = "上级领导:"

rt.X = 2

rt.Y = "Prev.Bottom + 2"

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = r("上级领导")

rt.X = 20

rt.Y = "Prev.Top"

ra.Children.Add(rt)

End If

If r("会议议题") <> Nothing Then

rt = New prt.RenderText

rt.Text = "会议议题:"

rt.X = 2

rt.Y = "Prev.Bottom + 2"

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = r("会议议题")

rt.X = 20

rt.Y = "Prev.Top"

ra.Children.Add(rt)

End If

If r("主持人") <> Nothing Then

rt = New prt.RenderText

rt.Text = "主持人:"

rt.X = 2

rt.Y = "Prev.Bottom + 2"

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = r("主持人")

rt.X = 20

rt.Y = "Prev.Top"

ra.Children.Add(rt)

End If

If r("主讲人") <> Nothing Then

rt = New prt.RenderText

rt.Text = "主讲人:"

rt.X = 2

rt.Y = "Prev.Bottom + 2"

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = r("主讲人")

rt.X = 20

rt.Y = "Prev.Top"

ra.Children.Add(rt)

End If

If r("会议内容") <> Nothing Then

rt = New prt.RenderText

rt.Text = "会议内容:"

rt.X = 2

rt.Y = "Prev.Bottom + 2"

ra.Children.Add(rt)

rt = New prt.RenderText

rt.Text = r("会议内容")

rt.X = 2

rt.Y = "Prev.Bottom + 2"

ra.Children.Add(rt)

End If

ra.BreakBefore = prt.BreakEnum.Page

Doc.Preview() '预览报表

可是执行后出现几个问题：

1、容器中的内容显示不完整，或者说是不能自动换行；

2、当[记录人]不同时，报表的字体与大小发生对应变化，不会实现。

[此贴子已经被作者于2019/3/20 22:31:21编辑过]

主题：[求助]专业报表