Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


  共有6339人关注过本帖树形打印复制链接

主题：[求助]
帅哥哟，离线，有人找我吗？
tungwun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00 		[求助]  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/5/23 14:07:00 [只看该作者]

代码你自己不是已经给出来了吗?

 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00 		  发帖心情 Post By：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 
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/5/24 6:15:00 [只看该作者]

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

 

改为：

 

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

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

End if
 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00 		  发帖心情 Post By：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 
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/5/25 17:49:00 [只看该作者]

rl = new prt.RenderText

if dr("逻辑列") = True

    rl.text = "√"

else

   rl.Text = "X"

end if
 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00 		  发帖心情 Post By：2013/5/25 18:19:00 [只看该作者]

出现编译错误名称 dr 未宣告?

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/5/27 8:43:00 [只看该作者]

这样应该明白了吧：

 

if CurRow("逻辑列") = True

    rl.text = "√"

else

   rl.Text = "X"

end if
 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询