专业报表打印文字在出现空格,跳到下一行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim doc As New PrintDoc '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象

Dim CurRow As Row = Tables("TAXI車輛資料").Current

if CurRow("修理內容") isnot nothing then

   Dim n As Integer
   For Each s1 As String In CurRow("修理內容").split(" ")
   rt =New prt.RenderText
   rt.Text = s1 '设置文本对象的内容
   rt.x = 26.5
   rt.y = 76+n*5
   rt.Width= 163
   doc.Body.Children.Add(rt) '将文本对象加入到报表
   n+=1
   Next
   doc.Preview()

End if

[此贴子已经被作者于2011-7-13 0:02:40编辑过]

主题：专业报表 打印文字在出现空格,跳到下一行

主题：专业报表打印文字在出现空格,跳到下一行