专业报表中的文本换行开始位置问题，老大请进？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表中的文本换行开始位置问题，老大请进？

共有14103人关注过本帖树形打印复制链接主题：专业报表中的文本换行开始位置问题，老大请进？

ybil

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00

Post By：2011/6/2 16:01:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-6-2 14:47:00的发言：
有差别吗，我怎么看起来是一样的。

呵呵,果真是喜欢做『简单』的事的人,什么都简单看待,简单--快乐人!

对齐不同

ybil

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：521 积分：4910 威望：0 精华：7 注册：2008/9/2 22:22:00

Post By：2011/6/2 18:54:00 [显示全部帖子]

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

Dim s1,s2,s3 As String '定义字符变量

s1 = "DDS0506001"

s2 = "光谱分析仪器(上海光学设备厂)"

Dim rt1,rt2, rt3 As New prt.RenderText '

rt1.Text = "产品编码:" & s1

doc.Body.Children.Add(rt1)

rt2.Text = "产品名称:" & Left(s2,11)

doc.Body.Children.Add(rt2)

For i As Integer = 0 To "产品名称:" .Length - 1

s3 = s3 & " "

rt3.Text = s3 & s2.Substring(11)

doc.Body.Children.Add(rt3)

doc.Preview() '预览

主题：专业报表中的文本换行开始位置问题，老大请进？