Foxtable(狐表)用户栏目专家坐堂 → 打印预案时是空表


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

主题:打印预案时是空表

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


加好友 发短信
等级:小狐 帖子:361 积分:3436 威望:0 精华:0 注册:2012/7/24 7:15:00
打印预案时是空表  发帖心情 Post By:2020/4/1 8:46:00 [只看该作者]

从表中选择复查结果为空值、未完成、未整改的行,进行打印,预览时为空表,只有表头,是怎么回事?
代码:
Dim doc As New PrintDoc '定义一个报表
    Doc.PageSetting.LeftMargin = 15
    Doc.PageSetting.BottomMargin = 15
    Doc.PageSetting.TopMargin = 15
    Doc.PageSetting.LeftMargin = 15
    Dim rm As prt.RenderEmpty '定一个空对象
    doc.Pagesetting.LandScape = True
    '设置页脚
    Dim yj As New prt.RenderText '定义一个文本对象
    yj = New prt.RenderText '设置文本对象的内容
    yj.Text = "第[PageNo]页  共[PageCount]页" '设置文本内容
    yj.Style.TextAlignHorz = prt.AlignHorzEnum.center '页脚中间对齐
    yj.Style.FontSize = 9 '字体大小为10磅
    yj.Style.Padding.Bottom = -20 '底端内容缩进10毫米
    Doc.PageFooter = yj '作为页脚使用
    Dim tbl8 As Table = Tables("隐患排查治理台账")
    '排查表
    Dim rt8 As Prt.RenderTable
    Dim rx8 As prt.RenderText
    Dim Rows8 As List(Of DataRow)
    '设置二级标题
    rx8 = New prt.RenderText
    rx8.Style.FontSize = 16
    rx8.Style.Spacing.Bottom = 5
    Dim dr As String = Forms("mainform").controls("安全检查台账企业名称").value
    rx8.text = dr & vbcrlf & "未整改完成台账" '表标题显示企业名称
    rx8.Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题水平居中
    doc.Body.Children.Add(rx8)
    '设置表格样式
    rt8 = New prt.RenderTable
    rt8.Style.TextAlignVert = prt.AlignVertEnum.Center
    rt8.Style.GridLines.All = New prt.LineDef(0.3,Color.blue)
    rt8.Style.Spacing.Bottom = 5
    rt8.CellStyle.Spacing.All = 1
    rt8.Style.Font = tbl8.Font
    '设置表格细节
    Rows8 = tbl8.DataTable.Select("企业名称 Like '*" & Forms("mainform").controls("安全检查台账企业名称").value & "*' and 年度 Like '*" & Forms("mainform").controls("安全检查台账年度").value & "*' and [复查结果] is null and [复查结果] = '未整改' and [复查结果] = '未完成'","检查时间") 
    Dim nms8() As String = {"年度","检查类型","检查时间","所在部门","隐患内容","整改措施","隐患照片","责任人","完成时间","复查时间","复查人","复查结果","验证照片"}
    Dim caps() As String = {"序号","检查类型","检查时间","所在部门","隐患内容","整改措施","隐患照片","责任人","完成时间","复查时间","复查人","复查结果","验证照片"} '自定义列名
    For c As Integer = 0 To nms8.length - 1
        Dim ary() As String = caps(c).split("|")
        For i As Integer = 0 To ary.length-1
            rt8.cells(i, c).text = ary(i)
        Next    '打印的列标题自定义
        rt8.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
        rt8.Cols(0).Width = 15 '设置各列宽度
        rt8.Cols(1).Width = 30
        rt8.Cols(2).Width = 25
        rt8.Cols(3).Width = 30
        rt8.Cols(4).Width = 60
        rt8.Cols(5).Width = 50
        rt8.Cols(6).Width = 50
        rt8.Cols(7).Width = 25
        rt8.Cols(8).Width = 25
        rt8.Cols(9).Width = 25
        rt8.Cols(10).Width = 25
        rt8.Cols(11).Width = 25
        rt8.Cols(12).Width = 50
         For r As Integer = 0 To Rows8.Count -1
            If c=0 Then
                rt8.Cells(r + 1, c).Text = r+1 '增加了序号列,并自动填充
            Else
                rt8.Cells(r + 1, c).Text = rows8(r)(tbl8.Cols(nms8(c)).Name)
            End If
        Next
    Next
    rt8.RowGroups(0,1).Header = prt.TableHeaderEnum.All
    doc.Body.Children.Add(rt8)
    Doc.Preview() '预览报表


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没有符合条件的数据吧
    Rows8 = tbl8.DataTable.Select("企业名称 Like '*" & Forms("mainform").controls("安全检查台账企业名称").value & "*' and 年度 Like '*" & Forms("mainform").controls("安全检查台账年度").value & "*' and [复查结果] is null and [复查结果] = '未整改' and [复查结果] = '未完成'","检查时间") 

msgbox(Rows8.count)

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


加好友 发短信
等级:小狐 帖子:361 积分:3436 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2020/4/1 12:43:00 [只看该作者]

Rows8 = tbl8.DataTable.Select("企业名称 Like '*" & Forms("mainform").controls("安全检查台账企业名称").value & "*' and 年度 Like '*" & Forms("mainform").controls("安全检查台账年度").value & "*' and [复查结果] is null","检查时间") 
这样就可以统计出来,加上 and [复查结果] = '未整改' and [复查结果] = '未完成'   就不行了
表格是这样的:

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200401130800.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/4/1 13:09:05编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/1 13:51:00 [只看该作者]

Rows8 = tbl8.DataTable.Select("企业名称 Like '*" & Forms("mainform").controls("安全检查台账企业名称").value & "*' and 年度 Like '*" & Forms("mainform").controls("安全检查台账年度").value & "*' and [复查结果] is null and ([复查结果] = '未整改' or [复查结果] = '未完成')","检查时间") 

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


加好友 发短信
等级:小狐 帖子:361 积分:3436 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2020/4/3 19:13:00 [只看该作者]

解决了.谢谢老师
Rows8 = tbl8.DataTable.Select("企业名称 Like '*" & Forms("mainform").controls("安全检查台账企业名称").value & "*' and 年度 Like '*" & Forms("mainform").controls("安全检查台账年度").value & "*' and ([复查结果] is null or [复查结果] = '未整改' or [复查结果] = '未完成')","检查时间") 
[此贴子已经被作者于2020/4/3 19:13:03编辑过]

 回到顶部