- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]专业报表中如何直接定义CheckBox (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122730)
-- 发布时间：2018/8/1 9:31:00
-- [求助]专业报表中如何直接定义CheckBox
如标题，不用窗口，直接使用后台数据生成专业报表时，如何直接定义CheckBox？希望能根据报表是的是否来直接打印出来一个是和否并根据报表内容来决定哪个打上钩。
此主题相关图片如下：1.png
-- 发布时间：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()
-- 发布时间：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()