- 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=97416)
-- 发布时间：2017/3/11 22:18:00
-- 目录的代码
想按照单位名称的列来生成目录，比如 文化局………………………………………………1
体育局………………………………………………3
Dim doc As New PrintDoc
Dim toc As New prt.RenderToc
Dim s As String
Dim rt As New prt.RenderText
toc.BreakAfter = Prt.BreakEnum.Page
rt.Text = "目录"
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
s = "单位名称"
doc.Body.Children.Add(rt)
For n As Integer = 1 To 30
rt = New prt.RenderText
rt.Text = "单位名称"
doc.Body.Children.Add(rt)
toc.AddItem(rt.Text, rt, 1)
For m As Integer = 1 To 10
rt = New prt.RenderText
rt.Text = s
doc.Body.Children.Add(rt)
toc.AddItem("第" & m & "节", rt, 2)
Next
Next
-- 发布时间：2017/3/12 20:41:00
--
没看懂你代码的用意，上传实例说明。
-- 发布时间：2017/3/12 22:28:00
-- 回复：（有点色）没看懂你代码的用意，上传实例说明。...
按照单位名称自动生成目录 只需要比如纪检委从第一页开始到第三页，市委办从第三页开始
-- 发布时间：2017/3/12 22:55:00
--
参考代码
Dim doc As New PrintDoc
Dim toc As New prt.RenderToc
Dim s As String
Dim rt As New prt.RenderText
toc.BreakAfter = Prt.BreakEnum.Page
rt.Text = "目录"
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
doc.Body.Children.Add(rt)
Dim dwmcs As List(Of String) = DataTables("竖名册").GetValues("单位名称", "单位名称 is not null")
For i As Integer = 0 To dwmcs.count-1
Dim dwmc As String = dwmcs(i)
rt = New prt.RenderText
rt.Text = dwmc
doc.Body.Children.Add(rt)
rt.BreakAfter = prt.BreakEnum.Page
rt.BreakAfter = prt.BreakEnum.Page
toc.AddItem(rt.Text, rt, 1)
Next
doc.body.Children.Insert(1,toc)
doc.Preview
-- 发布时间：2017/3/14 9:41:00
-- 回复：（有点色）参考代码 Dim doc As New P...
药到病除 谢谢老师
-- 发布时间：2017/3/14 21:51:00
-- 回复：（有点色）参考代码 Dim doc As New P...
想在固定的目录上级加字段，并且固定格式 比如政府部门 黑体 2号
，比如 代码如何修改 政府部门 文化局………………………………………………1 体育局………………………………………………3 市委部门 文联………………………………………………5 残联………………………………………………6 |
-- 发布时间：2017/3/14 22:02:00
--
上级部门从哪取值？如何分类？
-- 发布时间：2017/3/17 15:57:00
-- 回复：（有点蓝）上级部门从哪取值？如何分类？
如何自定义编辑已经生成的目录 文字 文本选择工具 单击后没反应啊？
-- 发布时间：2017/3/17 16:21:00
--
以下是引用guimingze在2017/3/17 15:57:00的发言：
如何自定义编辑已经生成的目录 文字 文本选择工具 单击后没反应啊？
如何自定义编辑已经生成的目录 文字 文本选择工具 单击后没反应啊？
不明白你的意思，你弄的是专业报表，只能看，不能修改的。