Foxtable(狐表) → 用户栏目 → 专家坐堂 → 待办事项表里面想实现根据承办人名字的不同 将该名字下面的所有待办事项显示出来 为什么只有一行呢？


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

主题：待办事项表里面想实现根据承办人名字的不同 将该名字下面的所有待办事项显示出来 为什么只有一行呢？
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		待办事项表里面想实现根据承办人名字的不同 将该名字下面的所有待办事项显示出来 为什么只有一行呢？  发帖心情 Post By：2021/6/14 1:22:00 [显示全部帖子]

麻烦老师看看  
待办事项表里面
想实现根据承办人名字的不同 将该名字下面的所有待办事项显示出来 为什么只有一行呢？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工作提示单.xls


图片点击可在新窗口打开查看此主题相关图片如下：捕获1.png
图片点击可在新窗口打开查看
运行效果为

图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）去掉A3单元格内容<代 办事项,1>...  发帖心情 Post By：2021/6/17 11:35:00 [显示全部帖子]

去掉之后也是一样的  没有显示所有的内容

比如张三  需要办事项1  事项2 事项3  事项……
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）请上传实例说明  发帖心情 Post By：2021/6/17 12:13:00 [显示全部帖子]

麻烦老师看看  谢谢！
以下内容是专门发给有点蓝浏览

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工作提示单.xls

Dim Book As New XLS.Book(ProjectPath & "Attachments\工作提示单.xls")
Dim fl As String = ProjectPath & "Reports\工作提示单.xls" 
Book.AddDataTable("待办事项","智慧党建","Sel ect * from {待办事项}")
Book.Build() 
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）2楼的文字很难理解吗？是整个去掉A3单...  发帖心情 Post By：2021/6/17 14:37:00 [显示全部帖子]

去掉之后直接显示这样的效果  一条数据都没有了

图片点击可在新窗口打开查看此主题相关图片如下：12.png
图片点击可在新窗口打开查看
还得麻烦老师帮忙看看  谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）模板添加了条件，那是没有符号条件的...  发帖心情 Post By：2021/6/17 14:56:00 [显示全部帖子]

去除条件得到数据  待办人列还是没有显示数据……
必须要A3有内容才能显示对应的待办人名字    这样会导致下面的数据条  只显示一条数据了
如果A3没有内容  那么不显示对应的待办人名字  下面的数据条会依次显示所有的数据内容……
还得麻烦老师帮忙看看  谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：12.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）不是父子表关联的模式，需要另外方式...  发帖心情 Post By：2021/6/17 18:22:00 [显示全部帖子]

还是没有解决 

专业报表也是一样
'''
Dim rg As prt.RenderGraphics
Dim i1 As Integer
Dim doc As New PrintDoc '定义一个报表
Dim tbl As Table = Tables("待办事项")
For i As Integer = tbl.TopRow To tbl.BottomRow
    Dim rw As Row = tbl.Rows(i)
    Dim ra As New prt.RenderArea '定义一个容器
    Dim rt As New prt.RenderTable() '定义一个表格对象
    Dim rx As New prt.RenderText '定义一个文本对象
    
    ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never  '禁止容器因为分页而被垂直分割
    '加入标题
    rx.text = "党史学习教育领导小组工作提示单"
    rx.Style.FontBold = True '字体加粗
    rx.Style.FontSize = 18 '大体大小为16磅
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
    rx.Style.Spacing.Top = 3 '和下面的对象(表格)距离3毫米
    ra.Children.Add(rx) '加入到容器中
    
    rx =new prt.RenderText
    rx.text = "张三："
    rx.Style.FontBold = True '字体加粗
    rx.Style.FontSize = 18 '大体大小为16磅
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居中排列
    rx.Style.Spacing.Top = 5 '和下面的对象(表格)距离3毫米
    ra.Children.Add(rx) '加入到容器中
    
    rx =new prt.RenderText
    rx.text = "        请速度完成如下待办事项。"
    rx.Style.FontBold = True '字体加粗
    rx.Style.FontSize = 18 '大体大小为16磅
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居中排列
    rx.Style.Spacing.Top = 5 '和下面的对象(表格)距离3毫米
    ra.Children.Add(rx) '加入到容器中
    
    '指定行数?列数?列宽?行高
    rt.Rows.Count = 1 '设置总行数
    rt.Cols.Count = 4
    
    rt.Rows(0).Height = 20 '设置行高
    rt.Rows(2).Height = 20 '设置行高
    rt.Cols(0).Width = 10  '设置列宽
    rt.Cols(1).Width = 20  '设置列宽
    rt.Cols(2).Width = 30  '设置列宽
    rt.Cols(3).Width = 40  '设置列宽
    '设置表格样式
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中
    rt.Style.GridLines.All = New prt.Linedef '设置网格线
    '下面很简单,指定每一个单元格的内容
    rt.Cells(0,0).Text=  "序号"
    rt.Cells(0,1).Text=  "事项类别"
    rt.Cells(0,2).Text=  "事项名称"
    rt.Cells(0,3).Text=  "事项内容"
    
    
    rt.Cells(1,1).Text=  rw("事项类别")
    rt.Cells(1,2).Text=  rw("事项名称")
    rt.Cells(1,3).Text=  rw("事项内容")
    
    ra.Children.Add(rt)
    
    Doc.Body.ChildRen.Add(ra)
    
Next
Doc.Preview() '预览报表
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）什么东西一样？具体什么问题  发帖心情 Post By：2021/6/17 20:52:00 [显示全部帖子]

也是只显示一条记录   
想实现张三名字下的 所有待办事项记录都集中显示出来  而不是分多个页面   
麻烦老师看看  谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20210617205043.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）一个循环就添加一个表格，肯定只有一...  发帖心情 Post By：2021/6/17 22:29:00 [显示全部帖子]

现在实现了多行添加  但是与待办人姓名不吻合  
想实现先根据当前所有表中的待办人 值内容进行判断   然后把当前待办事项 表中  待办人值的所有未完成数据   按待办人进行分类分页打印出来
麻烦老师看看  谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：12.png
图片点击可在新窗口打开查看


'''
Dim rg As prt.RenderGraphics
Dim i As Integer
Dim doc As New PrintDoc '定义一个报表
Dim tb As Table = Tables("待办事项")
Dim rw As Row = tb.Rows(i)
Dim ra As New prt.RenderArea '定义一个容器
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象
Dim ColNames As New List(Of String)
For Each cl As Col In tb.Cols '排除隐藏列
    If cl.Visible Then
        ColNames.Add(cl.Name)
    End If
Next

'加入标题
rx.text = "党史学习教育领导小组工作提示单"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 24 '大体大小为16磅
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rx.Style.Spacing.Top = 3 '和下面的对象(表格)距离3毫米
ra.Children.Add(rx) '加入到容器中


    rx =new prt.RenderText
    rx.text = rw("待办人")&":"
    rx.Style.FontBold = True '字体加粗
    rx.Style.FontSize = 14 '大体大小为16磅
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居中排列
    rx.Style.Spacing.Top = 5 '和下面的对象(表格)距离3毫米
    ra.Children.Add(rx) '加入到容器中
    
    rx =new prt.RenderText
    rx.text = "        请速度完成如下待办事项."
    rx.Style.FontBold = True '字体加粗
    rx.Style.FontSize = 14 '大体大小为16磅
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居中排列
    rx.Style.Spacing.Top = 5 '和下面的对象(表格)距离3毫米
    ra.Children.Add(rx) '加入到容器中
    
    
    rt.Style.Font = tb.Font
    
    rt.Rows.Count = 1 '设置总行数
    rt.Cols.Count = 5   '
    
    rt.Cols(0).Width = 20  '设置列宽
    rt.Cols(1).Width = 25  '设置列宽
    rt.Cols(2).Width = 40  '设置列宽
    rt.Cols(3).Width = 70  '设置列宽
    rt.Cols(4).Width = 20  '设置列宽
    ''设置表格样式
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中
    rt.Style.GridLines.All = New prt.Linedef '设置网格线
    ''下面很简单,指定每一个单元格的内容
    rt.Cells(0,0).Text=  "时间"
    rt.Cells(0,1).Text=  "事项类别"
    rt.Cells(0,2).Text=  "事项名称"
    rt.Cells(0,3).Text=  "事项内容"
    
    rt.Cells(0,4).Text=  "完成情况"
    ra.Children.Add(rt) '加入到容器中
    For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
    rt.Rows(r).Height = 15 '设置行高
    rt.Rows(r+1).Height = 15 '设置行高
    rt.Cells(r + 1, 0).Text = tb.Rows(r)("应办时间")
    rt.Cells(r + 1, 0).Style.TextAlignVert = prt.AlignHorzEnum.Center
    rt.Cells(r + 1, 1).Text = tb.Rows(r)("事项类别")
    rt.Cells(r + 1, 1).Style.TextAlignVert = prt.AlignHorzEnum.Center
    rt.Cells(r + 1, 2).Text = tb.Rows(r)("事项名称")
    rt.Cells(r + 1, 2).Style.TextAlignVert = prt.AlignHorzEnum.Center
    rt.Cells(r + 1, 3).Text = tb.Rows(r)("事项内容")
    rt.Cells(r + 1, 4).Text = tb.Rows(r)("完成情况")
    rt.Cells(r + 1, 4).Style.TextAlignHorz=prt.AlignHorzEnum.Center
    
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
doc.Body.Children.Add(ra) '将表格加入到报表
doc.Preview()
[此贴子已经被作者于2021/6/17 22:29:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）分组的参考这种：http://www.foxtabl...  发帖心情 Post By：2021/6/18 0:16:00 [显示全部帖子]

提示项目已经有所有者了？麻烦老师帮忙看看  谢谢

Dim rg As prt.RenderGraphics
Dim i As Integer
Dim doc As New PrintDoc '定义一个报表
Dim tb As Table = Tables("待办事项")
Dim rw As Row = tb.Rows(i)

Dim Rows As List(Of DataRow)
Dim Regions As List(Of String) = tb.DataTable.GetValues("待办人")
doc.Pagesetting.LandScape = True

Dim ra As New prt.RenderArea '定义一个容器
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象
Dim ColNames As New List(Of String)
For Each cl As Col In tb.Cols '排除隐藏列
    If cl.Visible Then
        ColNames.Add(cl.Name)
    End If
Next
For Each Region As String In Regions
    '加入标题
    rx.text = "党史学习教育领导小组工作提示单"
    rx.Style.FontBold = True '字体加粗
    rx.Style.FontSize = 24 '大体大小为16磅
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
    rx.Style.Spacing.Top = 3 '和下面的对象(表格)距离3毫米
    ra.Children.Add(rx) '加入到容器中
    
    
    rx =new prt.RenderText
    rx.text = Region & ":"
    rx.Style.FontBold = True '字体加粗
    rx.Style.FontSize = 14 '大体大小为16磅
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居中排列
    rx.Style.Spacing.Top = 5 '和下面的对象(表格)距离3毫米
    ra.Children.Add(rx) '加入到容器中
    
    rx =new prt.RenderText
    rx.text = "        请速度完成如下待办事项."
    rx.Style.FontBold = True '字体加粗
    rx.Style.FontSize = 14 '大体大小为16磅
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居中排列
    rx.Style.Spacing.Top = 5 '和下面的对象(表格)距离3毫米
    ra.Children.Add(rx) '加入到容器中
    
    
    rt.Style.Font = tb.Font
    
    rt.Rows.Count = 1 '设置总行数
    rt.Cols.Count = 5   '
    
   rt.Cols(0).Width = 20  '设置列宽
    rt.Cols(1).Width = 25  '设置列宽
    rt.Cols(2).Width = 40  '设置列宽
    rt.Cols(3).Width = 70  '设置列宽
    rt.Cols(4).Width = 20  '设置列宽
    '''设置表格样式
    rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中
   rt.Style.GridLines.All = New prt.Linedef '设置网格线
    '''下面很简单,指定每一个单元格的内容
    rt.Cells(0,0).Text=  "时间"
    rt.Cells(0,1).Text=  "事项类别"
    rt.Cells(0,2).Text=  "事项名称"
    rt.Cells(0,3).Text=  "事项内容"
    '
    rt.Cells(0,4).Text=  "完成情况"
    ra.Children.Add(rt) '加入到容器中
    Rows = tb.DataTable.Sel ect("[待办人] = '" & Region & "'")
    For r As Integer = 0 To Rows.Count -1 '开始填入该列内容
        rt.Rows(r).Height = 15 '设置行高
        rt.Rows(r+1).Height = 15 '设置行高
        rt.Cells(r + 1, 0).Text = Rows(r)("应办时间")
        rt.Cells(r + 1, 0).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.Cells(r + 1, 1).Text = Rows(r)("事项类别")
        rt.Cells(r + 1, 1).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.Cells(r + 1, 2).Text = Rows(r)("事项名称")
        rt.Cells(r + 1, 2).Style.TextAlignVert = prt.AlignHorzEnum.Center
        rt.Cells(r + 1, 3).Text = Rows(r)("事项内容")
        rt.Cells(r + 1, 4).Text = Rows(r)("完成情况")
        rt.Cells(r + 1, 4).Style.TextAlignHorz=prt.AlignHorzEnum.Center
    Next
    rt.Style.Gridlines.All = New prt.Linedef(Color.Gray) '灰色网格线
    rt.CellStyle.Spacing.All = 0.5 '单元格内距设为0.5毫米
    rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
    doc.Body.Children.Add(rt) '将表格加入到报表
Next
doc.Preview()
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）For Each cl As Col In tb.Cols '排除...  发帖心情 Post By：2021/6/18 8:57:00 [显示全部帖子]

老师 要继续麻烦你了  问题依旧是提示已经有所有者了

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