Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生成报表


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

主题：生成报表
帅哥哟，离线，有人找我吗？
ntqhj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：474 积分：2982 威望：0 精华：0 注册：2018/1/15 13:54:00 		生成报表  发帖心情 Post By：2021/11/6 14:44:00 [显示全部帖子]

生成Word报表，Word报表套打：表A中有4行5列，Word模版也有4行5列，将表A的4行5列分别套打到Word模版中4行4行5列，如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：474 积分：2982 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/4/26 16:02:00 [显示全部帖子]

没做成功。是否是参考示例2的代码，word的模版是怎样的？预览出来的是同一条记录呢
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：474 积分：2982 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/4/26 16:43:00 [显示全部帖子]

使用ReplaceOne逐个单元格替换数据中的示例2代码，可以完成我要的功能，就是每条记录之间有空行，如何消除空行？
[此贴子已经被作者于2022/4/26 16:44:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：474 积分：2982 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/4/26 16:54:00 [显示全部帖子]

抱歉！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:word报表套打.zip
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：474 积分：2982 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/4/26 23:55:00 [显示全部帖子]

实际使用的模版，有说明：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:拍储棉委托书.zip


老师修改后的代码好像只限3条记录，若是2条记录第三条记录好像显示也不为空
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：474 积分：2982 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/4/27 16:05:00 [显示全部帖子]

使用ReplaceOne逐个单元格替换数据中的示例2代码似乎可行，不过需将硬回车的空行通过代码能删除好像还能适合我用。

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


加好友 发短信
等级：一尾狐 帖子：474 积分：2982 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/5/24 11:17:00 [显示全部帖子]

再增加一个ComboBox条件，目前我的应用ComboBox是通过动态列表得到的，老师空了帮我套打代码修改下呢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:word报表套打.zip
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：474 积分：2982 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/5/24 13:07:00 [显示全部帖子]

感觉是这样的，是这样的逻辑吗？若是老师帮我完善下呢？不会啊
Dim v As Date = e.Form.Controls("DateTimePicker1").value
加一条ComboBox1 的变量为v1
Dim drs As List(of DataRow) = DataTables("表A").Select("日期 = #" & V & "#" )  '筛选出符合条件的行 这行代码要同时满足以上2个条件
[此贴子已经被作者于2022/5/24 13:13:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：474 积分：2982 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/5/24 15:13:00 [显示全部帖子]

Dim Filter As String
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        Filter = "日期 = '" & .Value & "'" '第一个控件的条件'
    End If
End With
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "第一列 = '" & .Value & "'" '加上第二个控件的条件'
    End If
End With

'If Filter > "" Then
'    Tables("表A").Filter = Filter
'End If

筛选出来可以了。再按要求显示报表：搞不定与筛选代码如何建立联系了，

If drs.Count > 0 Then '如果存在符合条件的行
    Dim tm As String  = ProjectPath & "Attachments\测试.doc" '指定模板文件
    Dim fl As String = ProjectPath & "Reports\测试.doc" '指定目标文件
    Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
    For i As Integer = 0 To drs.Count - 1
        wrt.ReplaceOne("[第一列" & i & "]",drs(i)("第一列"))
        wrt.ReplaceOne("[第二列" & i & "]",drs(i)("第二列"))
    Next
    wrt.BuildOne(drs(0))
    wrt.Show() '显示报表
End If
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：474 积分：2982 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2024/2/19 18:03:00 [显示全部帖子]

老师新年好！窗口按钮代码：筛选、打印已实现功能，求合并的代码。合并代码需要完成的功能是：同一天有多条记录，日期列、B列、C列、D列等，当出现内容相同时就合并，否则不合并，代码是怎样的啊

 回到顶部
总数 15 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.06250 秒, 8 次数据查询