以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 专业报表表格内容靠右 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83400) |
-- 作者:kaituozhe -- 发布时间:2016/4/8 9:00:00 -- 专业报表表格内容靠右 以下专业报表代码中,我想让借方金额、贷方金额及余额的标题居中内容靠右,以下代码怎么完善 Dim Doc As new PrintDoc() Dim rt As new prt.rendertable Dim rx As new prt.RenderText rx.style.Font = new font("宋体",16) rx.style.TextAlignHorz = prt.AlignHorzEnum.Center rx.Style.Spacing.Bottom = 3 rx.text = "银行交易明细" Doc.body.Children.Add(rx) rt.rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'唯独第一列内容居中 rt.style.Font = new font("宋体",9) rt.style.GridLines.all = new prt.LineDef rt.Cols(1).Width = 32 rt.Cols(2).Width = 32 rt.Cols(8).Width = 32 rt.cells(0,0).text="交易日期" rt.cells(0,1).text="银行账号" rt.cells(0,2).text="银行卡号" rt.cells(0,3).text="交易户名" rt.cells(0,4).text="交易内容" rt.cells(0,5).text="借方金额" rt.cells(0,6).text="借方金额" rt.cells(0,7).text="余额" rt.cells(0,8).text="对方账号" rt.cells(0,9).text="对方户名" rt.cells(0,10).text="地点号" rt.cells(0,11).text="交易机构" Dim drs As List (of DataRow) = Tables("交易明细_table1").DataTable.sqlselect("交易日期 is not null") For i As Integer = 0 To drs.Count-1 rt.cells(i+1,0).text= drs(i)("交易日期") rt.cells(i+1,1).text= drs(i)("银行账号") rt.cells(i+1,2).text= drs(i)("银行卡号") rt.cells(i+1,3).text= drs(i)("交易户名") rt.cells(i+1,4).text= drs(i)("交易内容") rt.cells(i+1,5).text= drs(i)("借方金额") rt.cells(i+1,6).text= drs(i)("贷方金额") rt.cells(i+1,7).text= drs(i)("余额") rt.cells(i+1,8).text= drs(i)("对方账号") rt.cells(i+1,9).text= drs(i)("对方户名") rt.cells(i+1,10).text= drs(i)("地点号") rt.cells(i+1,11).text= drs(i)("交易机构") Next Doc.body.Children.Add(rt) Doc.PageSetting.LeftMargin = 10 \'设置左边距 Doc.PageSetting.RightMargin = 10 \'设置右边距 Doc.PageSetting.TopMargin = 10 \'设置上边距 Doc.PageSetting.BottomMargin = 10 \'设置下边距 doc.PageSetting.Landscape = True Doc.preview()
|
-- 作者:大红袍 -- 发布时间:2016/4/8 9:04:00 -- 比如
rt.cells(0,7).Style.TextAlignHorz = prt.AlignHorzEnum.Right
|
-- 作者:kaituozhe -- 发布时间:2016/4/8 9:32:00 -- 1楼代码打印出来的是全部内容,怎么能按筛选的内容打印呢? |
-- 作者:大红袍 -- 发布时间:2016/4/8 10:09:00 -- Dim t As Table = Tables("交易明细_table1")
For i As Integer = 0 To t.rows.Count-1
rt.cells(i+1,0).text= t.rows(i)("交易日期")
rt.cells(i+1,1).text= t.rows(i)("银行账号")
rt.cells(i+1,2).text= t.rows(i)("银行卡号")
rt.cells(i+1,3).text= t.rows(i)("交易户名")
rt.cells(i+1,4).text= t.rows(i)("交易内容")
rt.cells(i+1,5).text= t.rows(i)("借方金额")
rt.cells(i+1,6).text= t.rows(i)("贷方金额")
rt.cells(i+1,7).text= t.rows(i)("余额")
rt.cells(i+1,8).text= t.rows(i)("对方账号")
rt.cells(i+1,9).text= t.rows(i)("对方户名")
rt.cells(i+1,10).text= t.rows(i)("地点号")
rt.cells(i+1,11).text= t.rows(i)("交易机构")
Next
|
-- 作者:kaituozhe -- 发布时间:2016/4/8 14:57:00 -- 4楼代码完善如下,提示缺少操作符是否什么原因? t.Filter = "交易日期 is not null andalso 交易内容 is not null andalso 余额 is not null"
|
-- 作者:大红袍 -- 发布时间:2016/4/8 15:15:00 -- t.Filter = "交易日期 is not null And 交易内容 is not null And 余额 is not null" |