'设置表格样式
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("事项内容")等能否单独设置, 加粗和下划线?
我用过复杂图排过,无法调用rw("待办人") 这些内容
老师,请看一下代码
蓝老师,请看一下例子,这个段落的样式能不能实现
[此贴子已经被作者于2024/6/13 10:09:55编辑过]
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("现居住住址")数据?
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的"本期发生额_借方"金额合计如何表述?
没看懂。表数据是怎么样的?什么地方有问题?最终需要什么效果?
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的借方金额合计数,赋值给月结表"本期发生额_借方",如何表述?