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


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

主题：待办事项表里面想实现根据承办人名字的不同 将该名字下面的所有待办事项显示出来 为什么只有一行呢？
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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() '预览报表
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/17 19:42:00 [只看该作者]

什么东西一样？具体什么问题

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


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

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

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


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/17 20:59:00 [只看该作者]

一个循环就添加一个表格，肯定只有一行呀。参考：http://www.foxtable.com/webhelp/topics/1233.htm

 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/17 22:51:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/18 8:37:00 [只看该作者]

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 =new prt.RenderText
    '加入标题
    rx.text = "党史学习教育领导小组工作提示单"
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 [只看该作者]

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

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


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/6/18 9:00:00 [只看该作者]

ra有同样的问题。另外ra是干嘛用的

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