Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于word报表模板分组显示问题


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

主题：关于word报表模板分组显示问题
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  101楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/12 15:27:00 [只看该作者]

'设置表格样式
rt.Style.TextAlignVert = prt.AlignVertEnum.Center '内容垂直居中       
'下面很简单,指定每一个单元格的内容        
rt.Cells(0, 0).Text = rw("待办人") & ":"
rt.Cells(0, 0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
rt.Cells(0, 0).Style.Font = New Font("仿宋", 14, FontStyle.Bold)
rt.Cells(1, 0).Text = "    根据" & rw("待办事项") & "工作安排，您应于" & Format(rw("应办时间"), "yyyy年M月d日") & "提交" & rw("事项内容") & "。经查，您至今未完成。请于" & Format(rw("到期时间"), "yyyy年M月d日") & "前将电子档资料扫码操作或将纸质资料交到院B201办公室汇总归档。"
rt.Cells(1, 0).Style.TextIndent = 100 'TextIndent文本缩进
rt.Cells(1, 0).Style.TextAlignVert = prt.AlignVertEnum.top
rt.Cells(1, 0).Style.LineSpacing = 150 'LineSpacing行距
rt.Cells(1, 0).Style.Font = New Font("仿宋", 14, FontStyle.Bold)
'请教老师, 专业报表里代码rt.Cells(1, 0).Text里面的一部分内容比如rw("待办事项")、rw("事项内容")等能否单独设置, 加粗和下划线？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  102楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

不能。
单独设置要使用这种方式：http://www.foxtable.com/webhelp/topics/1183.htm
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  103楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/12 15:46:00 [只看该作者]

我用过复杂图排过，无法调用rw("待办人") 这些内容
 回到顶部
帅哥，在线噢！
有点蓝
 小大  104楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没看懂，举例说明一下

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


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/12 17:18:00 [只看该作者]

老师，请看一下代码
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目240611.foxdb

蓝老师，请看一下例子，这个段落的样式能不能实现
[此贴子已经被作者于2024/6/13 10:09:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  106楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/13 16:02:00 [只看该作者]

Dim rpar1 As New prt.RenderParagraph() '定义一个段落对象
Dim f1 As New Font(rpar1.Style.Font.Name, 16, FontStyle.Bold Or FontStyle.Underline) '定义一个样式：字体加粗且带下划线、字号14
rpar1.style.Font = New font("宋体", 14) '新增
rpar1.Content.AddText("    经指挥部核查，现") '字体是正常文本
'rpar1.Content.AddText("rw("现居住住址")", f1, Color.Red) '字体加粗,而且是红色
rpar1.Content.AddText("XX市XX乡镇XX村", f1, Color.Red) '字体加粗,而且是红色
rpar1.Content.AddText("村（居）民")
'rpar1.Content.AddText("rw("发函主要内容_调查对象")", f1, Color.Red) '字体加粗,而且是红色
rpar1.Content.AddText("张三", f1, Color.Red) '字体加粗,而且是红色
rpar1.Content.AddText("，原为你")
'rpar1.Content.AddText("rw("迁入前详细地址")", f1, Color.Red) '字体加粗,而且是红色
rpar1.Content.AddText("XX市XX乡镇XX村", f1, Color.Red) '字体加粗,而且是红色
rpar1.Content.AddText("村（居）民。")
rt.Cells(2, 0).RenderObject = rpar1 '将单元格内容设置为图片对象rm

老师，我现在已琢磨出使用复杂图文，并将文本段落应用到单元格中，目前又遇到一个问题，表中的数据如何引用的问题，这样写代码出错rpar1.Content.AddText("rw("现居住住址")", f1, Color.Red)，请教老师，如何将"XX市XX乡镇XX村" 替换或引用rw("现居住住址")数据？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  107楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

nt.AddText(rw("现居住住址"), f1, Color.Red)

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


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/19 14:52:00 [只看该作者]


Dim s As String = e.Form.Controls("年月").text '选择月份
For Each v As String() In DataTables("表B").GetValues("年份|月份|科目代码", "月份='" & s & "'")
    Dim dr As DataRow = DataTables("科目月结").AddNew()
    dr("年份") = v(0)
    dr("月份") = v(1)
    dr("科目代码") = v(2)
    Dim prds As List(Of DataRow) = DataTables("表B").select("年份='" & v(0) & "' And 月份='" & v(1) & "' and 科目代码='" & v(2) & "' And 月份 = '" & s & "'")
    For Each prd As DataRow In prds 
        dr(prd("本期发生额_借方")) = prd("本期发生额_借方") '这里等于表B的"本期发生额_借方"金额合计数
        dr(prd("本期发生额_贷方")) = prd("本期发生额_贷方") '这里等于表B的"本期发生额_贷方"金额合计数
    Next 
Next

老师, 请教一下表B的"本期发生额_借方"金额合计如何表述？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  109楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没看懂。表数据是怎么样的？什么地方有问题？最终需要什么效果？

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


加好友 发短信
等级：三尾狐 帖子：701 积分：5004 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/19 16:33:00 [只看该作者]


Dim s As String = e.Form.Controls("年月").text '选择月份
For Each v As String() In DataTables("表B").GetValues("年份|月份|科目代码", "月份='" & s & "'")
    Dim dr As DataRow = DataTables("科目月结").AddNew()
    dr("年份") = v(0)
    dr("月份") = v(1)
    dr("科目代码") = v(2)
    Dim prds As List(Of DataRow) = DataTables("表B").select("年份='" & v(0) & "' And 月份='" & v(1) & "' and 科目代码='" & v(2) & "' And 月份 = '" & s & "'")
    For Each prd As DataRow In prds 
        dr(prd("本期发生额_借方")) = prd("借方金额") '这里等于表B的"借方金额"合计数
        dr(prd("本期发生额_贷方")) = prd("贷方金额") '这里等于表B的"贷方金额"合计数
    Next 
Next

老师,也就是将表B的借方金额合计数，赋值给月结表"本期发生额＿借方"，如何表述？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 5 次数据查询