Foxtable(狐表)用户栏目专家坐堂 → [求助]专业报表中如何直接定义CheckBox


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

主题:[求助]专业报表中如何直接定义CheckBox

帅哥哟,离线,有人找我吗?
ajie5211
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:820 积分:5641 威望:0 精华:1 注册:2015/11/28 14:00:00
[求助]专业报表中如何直接定义CheckBox  发帖心情 Post By:2018/8/1 9:31:00 [只看该作者]

如标题,不用窗口,直接使用后台数据生成专业报表时,如何直接定义CheckBox?希望能根据报表是的是否来直接打印出来一个是和否并根据报表内容来决定哪个打上钩。
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
ajie5211
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:820 积分:5641 威望:0 精华:1 注册:2015/11/28 14:00:00
  发帖心情 Post By:2018/8/1 10:02:00 [只看该作者]

找到方法了

Dim doc As New PrintDoc
Dim rt As New prt.RenderTable '定义一个新表格
rt.Cells(0,0).Text= "是"
Dim a As New prt.RenderInputCheckBox
a.CanSplitHorz = True
a.ReadOnly = True
'a.Checked = True 
rt.Cells(0,1).Area.Style.FlowAlignChildren = prt.FlowAlignEnum.Center
rt.Cells(0,1).Area.Children.Add(a) 
rt.Cells(0,2).Text= "否"
Dim b As New prt.RenderInputCheckBox
b.CanSplitHorz = True
b.ReadOnly = True
b.Checked = True 
rt.Cells(0,3).Area.Children.Add(b)
doc.Body.Children.Add(rt) '将表格加入到报表
doc.Preview()


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/1 10:04:00 [只看该作者]

Dim doc As new PrintDoc
Dim chk As new prt.renderInputcheckbox
chk.text = "123456"
chk.checked = True
Doc.Body.Children.Add(chk)
doc.Preview()

 回到顶部