Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于WORD报表关联表明细的排序问题


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

主题：关于WORD报表关联表明细的排序问题
帅哥哟，离线，有人找我吗？
benwong2013
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：4081 威望：0 精华：0 注册：2015/12/16 8:22:00 		关于WORD报表关联表明细的排序问题  发帖心情 Post By：2017/2/2 23:15:00 [只看该作者]

请问Word报表关联表明细中与ABCDE一共5列，其中将A进行排序，但WORD报表中出现的列为BCD，但出现的内容不是依照A列进行排序的，请问应该如何处理？

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/2 23:55:00 [只看该作者]

 建议用代码直接替换明细表的内容

 

http://www.foxtable.com/webhelp/scr/2890.htm

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


加好友 发短信
等级：一尾狐 帖子：485 积分：4081 威望：0 精华：0 注册：2015/12/16 8:22:00 		  发帖心情 Post By：2017/2/3 9:45:00 [只看该作者]

Dim bh As String = Tables("T_Report").Current("报告格式编号")
    Dim tm As String  = ProjectPath & "Attachments\" & bh & ".doc" '指定模板文件
    Dim fl As String = ProjectPath & "Reports\" & Tables("T_Report").current("报告编号") & " " & Tables("T_Report").current("样品名称") & ".Doc" '指定目标文件
    Dim wrt As New WordReport(Tables("T_Report"),tm,fl) '定义一个WordReport
    Tables("T_Report.T_Item").Sort = "报告项目序号"
    For i As Integer = 0 To Tables("T_Report.T_Item").Rows.count - 1
        Dim r As Row = Tables("T_Report.T_Item").Rows(i)
        wrt.ReplaceOne("[报告项目序号" & i & "]", r("报告项目序号"))
    Next
    wrt.BuildOne(Tables("T_Report").Current)
    wrt.Show() '显示报表

修改成为这样还是不行；
报告项目序号就是我所说的列A，但在报表明细中是不体现的
[此贴子已经被作者于2017/2/3 9:45:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/3 10:00:00 [只看该作者]

代码没有问题，你模板那里要写好[报告项目序号0]、[报告项目序号1]...这些

 

有问题，做个实例发上来测试。 
 回到顶部
帅哥哟，离线，有人找我吗？
benwong2013
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：4081 威望：0 精华：0 注册：2015/12/16 8:22:00 		  发帖心情 Post By：2017/2/8 23:49:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.rar


实例如附件，需要依照报告序号来排序出具，无论如何好像是依照关联表添加的先后顺序而不是依照排序来的？
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/9 9:33:00 [只看该作者]

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.zip


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


加好友 发短信
等级：一尾狐 帖子：485 积分：4081 威望：0 精华：0 注册：2015/12/16 8:22:00 		  发帖心情 Post By：2017/2/9 9:41:00 [只看该作者]

我是需要将报告序号作为隐藏排序，但检测项目那个需要列出，而不是用报告序号取代检测项目，请问应如何处理？

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/9 9:45:00 [只看该作者]

 代码那里你改成对应的列名，多列，就在模板列设置好，再赋值

 

wrt.ReplaceOne("[检测项目" & i & "]", r("检测项目"))
 回到顶部
帅哥哟，离线，有人找我吗？
benwong2013
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：485 积分：4081 威望：0 精华：0 注册：2015/12/16 8:22:00 		  发帖心情 Post By：2017/2/9 12:44:00 [只看该作者]


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

可能你还没有理解我的意思，我需要将报表排序修改为数据表的排列方式，请问如何处理？？
Dim tm As String  = ProjectPath & "Attachments\报告.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\报告.Doc" '指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
Tables("表A.表B").Sort = "报告序号"
For i As Integer = 1 To 5
    If i <= Tables("表A.表B").Rows.count  Then
        Dim r As Row = Tables("表A.表B").Rows(i+1)
        wrt.ReplaceOne("[报告序号" & i & "]", r("报告序号"))
    Else
        wrt.ReplaceOne("[报告序号" & i & "]", "")
        
    End If
Next
wrt.BuildOne(Tables("表A").Current)
wrt.Show() '显示报表
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/9 14:18:00 [只看该作者]

认认真真看6楼例子。已经做好了啊。模板和代码都要改啊

 回到顶部
总数 11 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.05957 秒, 6 次数据查询