以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33721)
--  作者：tungwun
--  发布时间：2013/5/23 11:43:00
--  [求助]
请问型号是逻辑列如何打印√

rt = new prt.RenderText
rt.Text = CurRow("型号")
rt.x = 103
rt.y = 60
doc.body.Children.Add(rt)
rt.Style.FontSize = 12 
 
代码如何加入?  http://www.foxtable.com/help/
If .rows(r)("中止") = True Then
            Dim rm As New prt.RenderImage
            rm.Image = getImage("Check.Ico")
            rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
            rm.Style.ImageAlign.StretchHorz = False
            rm.Style.ImageAlign.StretchVert = False
            rt.Cells(r+1,5).RenderObject = rm
        End If
--  作者：Bin
--  发布时间：2013/5/23 14:07:00
--  
代码你自己不是已经给出来了吗?
--  作者：tungwun
--  发布时间：2013/5/23 22:01:00
--  
已下代码错误 请问如何修改
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
Dim rx As New prt.RenderText \'定义一个文本对象
 Dim rm As  New prt.RenderText \'定义一个文本对象
Dim rb As  New prt.RenderText \'定义一个文本对象
Dim rd As  New prt.RenderText \'定义一个文本对象
Dim rl As  New prt.RenderText \'定义一个文本对象
Dim re As  New prt.RenderText \'定义一个文本对象
Dim rp As  New prt.RenderText \'定义一个文本对象
Dim rj As  New prt.RenderText \'定义一个文本对象

rl = new prt.RenderText
rl.Text = CurRow("型号")
rl.x = 30
rl.y = 30
doc.body.Children.Add(rl)
rl.Style.FontSize = 12 
 
Dim rs As  New prt.RenderImage 
rs.Image = getImage( "Check.Ico" ) 
 rs.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center 
 rs.Style.ImageAlign.StretchHorz =  False 
 rs.Style.ImageAlign.StretchVert =  False 
--  作者：狐狸爸爸
--  发布时间：2013/5/24 6:15:00
--  

rs.Image = getImage( "Check.Ico" ) 

 

改为：

 

if .rows(r)("逻辑列") = True then

    rs.Image = getImage( "Check.Ico" ) 

End if
--  作者：tungwun
--  发布时间：2013/5/25 17:28:00
--  
型号是逻辑列  True 如何打印√ 用代码政都不成功? 
rl = new prt.RenderText
rl.Text = CurRow("型號")
rl.x = 30
rl.y = 30
doc.body.Children.Add(rl)
rl.Style.FontSize = 12 
--  作者：狐狸爸爸
--  发布时间：2013/5/25 17:49:00
--  

rl = new prt.RenderText

if dr("逻辑列") = True

    rl.text = "√"

else

   rl.Text = "X"

end if
--  作者：tungwun
--  发布时间：2013/5/25 18:19:00
--  
出现编译错误名称 dr 未宣告?
--  作者：狐狸爸爸
--  发布时间：2013/5/27 8:43:00
--  

这样应该明白了吧：

 

if CurRow("逻辑列") = True

    rl.text = "√"

else

   rl.Text = "X"

end if