共116 条记录, 每页显示 10 条, 页签: [1]... [7][8][9][10] [11] [12]

[浏览完整版]

标题：关于word报表模板分组显示问题

101楼

jhxb8821 发表于：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楼

有点蓝 发表于：2024/6/12 15:38:00

不能。

单独设置要使用这种方式：http://www.foxtable.com/webhelp/topics/1183.htm

103楼

jhxb8821 发表于：2024/6/12 15:46:00

我用过复杂图排过，无法调用rw("待办人") 这些内容

104楼

有点蓝 发表于：2024/6/12 15:57:00

没看懂，举例说明一下

105楼

jhxb8821 发表于：2024/6/12 17:18:00

老师，请看一下代码

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目240611.foxdb

蓝老师，请看一下例子，这个段落的样式能不能实现

[此贴子已经被作者于2024/6/13 10:09:55编辑过]

106楼

jhxb8821 发表于：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楼

有点蓝 发表于：2024/6/13 16:06:00

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

108楼

jhxb8821 发表于：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的"本期发生额_贷方"金额合计数

老师, 请教一下表B的"本期发生额_借方"金额合计如何表述？

109楼

有点蓝 发表于：2024/6/19 15:43:00

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

110楼

jhxb8821 发表于：2024/6/19 16:33:00