以文本方式查看主题

-  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"