以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  专业报表 代码用在Excel报表中  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=11253)
--  作者：tungwun
--  发布时间：2011/7/14 22:24:00
--  专业报表 代码用在Excel报表中
专业报表 代码用在Excel报表中
Dim doc As New PrintDoc \'定义一个报表
Dim rt As prt.RenderText \'定义一个文本对象
Dim rm As prt.RenderImage \'定义一个图形队形
Dim CurRow As Row = Tables("TAXI車輛資料").Current
Dim n As Integer
For Each s1 As String In CurRow("修理內容").split(" ")
    rt =New prt.RenderText
    rt.Text = s1 \'设置文本对象的内容
    rt.x = 12
rt.Style.FontSize = 14 \'字体大小为16磅
        rt.y = 75+N*5
    rt.Width= 170
    doc.Body.Children.Add(rt) \'将文本对象加入到报表
    n+=1
Next      



rt = new prt.RenderText
rt.Text = CurRow("車牌號碼")
rt.x = 103
rt.y = 51
doc.body.Children.Add(rt)
rt.Style.FontSize = 12 \'字体大小为16磅
--  作者：狐狸爸爸
--  发布时间：2011/7/14 22:36:00
--  
想用Excel报表，就去看Excel报表的帮助，两者互有优势，不可以转换。