Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]


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

主题：[原创]
帅哥哟，离线，有人找我吗？
glhyg
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：126 威望：0 精华：0 注册：2018/1/11 17:13:00 		[原创]  发帖心情 Post By：2018/1/16 12:06:00 [显示全部帖子]

请教老师：
      我是初学者。如何通过筛选树选择，实现WORD报表批量打印。

1、左treeview图筛选右Teble表内容

2、批量打印代码
Dim dt1 As WinForm.treeview = e.Form.Controls("treeview1")
Dim drs As List(of DataRow) = DataTables("b1").Select("乡镇|村 =  '&dt1.AllNodes & ' ") '筛选出符合条件的行
If drs.Count > 0 Then '如果存在符合条件的行
    Dim tm As String  = ProjectPath & "Attachments\123.doc" '指定模板文件
    Dim fl As String = ProjectPath & "Reports\5.doc" '指定目标文件
    Dim wrt As New WordReport(Tables("b1"),tm,fl) '定义一个WordReport
    For Each dr As DataRow In drs '逐行生成报表
        wrt.BuildOne(dr)
    Next
    wrt.print '显示报表
   wrt.quit
End If
 回到顶部
帅哥哟，离线，有人找我吗？
glhyg
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：126 威望：0 精华：0 注册：2018/1/11 17:13:00 		  发帖心情 Post By：2018/1/16 12:09:00 [显示全部帖子]

请教老师：
      我是初学者。如何通过筛选树选择，实现WORD报表批量打印。

1、左treeview图筛选右Teble表内容

2、批量打印代码
Dim dt1 As WinForm.treeview = e.Form.Controls("treeview1")
Dim drs As List(of DataRow) = DataTables("b1").Select("乡镇|村 =  '&dt1.AllNodes & ' ") '筛选出符合条件的行
If drs.Count > 0 Then '如果存在符合条件的行
    Dim tm As String  = ProjectPath & "Attachments\123.doc" '指定模板文件
    Dim fl As String = ProjectPath & "Reports\5.doc" '指定目标文件
    Dim wrt As New WordReport(Tables("b1"),tm,fl) '定义一个WordReport
    For Each dr As DataRow In drs '逐行生成报表
        wrt.BuildOne(dr)
    Next
    wrt.print '显示报表
   wrt.quit
End If
此主题相关图片如下：捕获.png
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
glhyg
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：126 威望：0 精华：0 注册：2018/1/11 17:13:00 		  发帖心情 Post By：2018/1/16 12:25:00 [显示全部帖子]

出现以下错误：

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2017.12.18.1
错误所在事件：窗口,窗口1,Button4,Click
详细错误信息：
检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败，原因是出现以下错误: 80040154。
 回到顶部
帅哥哟，离线，有人找我吗？
glhyg
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：126 威望：0 精华：0 注册：2018/1/11 17:13:00 		  发帖心情 Post By：2018/1/16 12:41:00 [显示全部帖子]

老师：运行后出现了以下错误，请指正！

代码：Dim nms As String() = {"乡镇","村","组","户主姓名"} '指定生成目录树的各列 
Dim qts As String() = {"'","'","'","'"} '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号 
Dim trv As WinForm.TreeView = e.Sender 
Dim flt As String 
Dim nd As WinForm.TreeNode 
For Each nd In e.node.allNodes '清除子节点的选中标记 
    nd.Checked = False 
Next 
nd = e.Node.ParentNode 
Do While nd IsNot Nothing '清除父节点的选中标记 
    nd.Checked = False 
    nd = nd.ParentNode 
Loop 
For Each nd In trv.AllNodes 
    If nd.Checked  Then 
        Dim rts() As String = nd.FullPath.Split("\") 
        Dim val As String = ""
        For i As Integer = 0 To rts.length - 1
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = " & qts(i) & rts(i) & qts(i)
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("b1").Filter  = flt
图片点击可在新窗口打开查看此主题相关图片如下：捕获2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
glhyg
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：10 积分：126 威望：0 精华：0 注册：2018/1/11 17:13:00 		  发帖心情 Post By：2018/1/16 13:11:00 [显示全部帖子]

谢谢老师，解决问题！

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