以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于专业报表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65528)

--  作者:cyl123
--  发布时间:2015/3/17 19:54:00
--  关于专业报表
关于专业报表,有两个问题:
1、如何设置一个对象的垂直位置为一个表格对象的最下边距离xx?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150317195349.png
图片点击可在新窗口打开查看

2、如图如何设置表格数值的小数点

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150317195133.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2015/3/17 19:59:00
--  

1、弄一个容器,把要显示的内容装进去;然后设置容器的间隔距离

 

http://www.foxtable.com/help/topics/1173.htm

 

2、填写数据的时候,就应该控制,也就是截取好字符,再写进去报表


--  作者:cyl123
--  发布时间:2015/3/17 20:12:00
--  
如何控制字符小数点?
--  作者:有点甜
--  发布时间:2015/3/17 20:13:00
--  
msgbox(Format(234.567789, "0.00"))
--  作者:cyl123
--  发布时间:2015/3/17 20:41:00
--  
问题是原本已经限定小数位数了,为绑定报表后会出现这么多小数。而且数值本来是整数的。

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150317203912.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150317203901.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2015/3/17 20:45:00
--  

1、方法一:数值列弄成高精度小数;

 

2、方法二:贴出你写的代码,要改代码。

[此贴子已经被作者于2015/3/17 20:45:45编辑过]

--  作者:cyl123
--  发布时间:2015/3/17 21:01:00
--  
Dim doc As New PrintDoc
Dim yy As Integer =0
Dim dr As Row = Tables("采购查询").Current
\'----------采购表----------
Dim rt As New prt.RenderTable
Dim tb As Table = Tables("采购明细")
Dim ColNames As String() = New String(){"用品编号","用品名称","类型","价格","单位","数量","折扣","金额","备注"}
For c As Integer = 0 To ColNames.Length -1
    rt.Cells(0,c).Text = ColNames(c) 
    rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth 
    rt.Cells(1, c).Text = "[Fields!" & ColNames(c) & ".Value]" \'设置绑定表达式
Next
rt.RowGroups(0,1).Style.TextAlignVert = prt.AlignVertEnum.Center \'第一行内容垂直居中
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All \'将第一行作为表头.

rt.Style.GridLines.All = New prt.Linedef(Color.Gray) 
rt.CellStyle.Spacing.All =1.5

rt.Cells(3,0).Text ="总计"
rt.Cells(3,1).SpanCols = 6
rt.Cells(3,7).Text ="[Aggregates!金额总计.Value]"

rt.Rows(0).Style.TextAlignVert = prt.AlignVertEnum.Center 
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All

With rt.RowGroups(1,2)
    .DataBinding.DataSource = BindTables("采购明细") 
    .DataBinding.Grouping.Expressions.Add("Fields!金额.Value") 
    doc.DataSchema.Aggregates.Add(New prt.DataBinding.Aggregate("金额总计", "Fields!金额.Value", .DataBinding, 0, 0))
End With

rt.RowGroups(1,1).DataBinding.DataSource = BindTables("采购明细") \'将第二行绑定到订单表

--  作者:cyl123
--  发布时间:2015/3/17 21:03:00
--  
如何将表格对象装到容器中?
--  作者:有点甜
--  发布时间:2015/3/17 21:04:00
--  

 不要用绑定的方法,你可以用代码的方法,或者是,用四舍五入,处理一下金额列

 

http://www.foxtable.com/help/topics/0108.htm

 

 

http://www.foxtable.com/help/topics/1233.htm

 

 


--  作者:有点甜
--  发布时间:2015/3/17 21:05:00
--  
以下是引用cyl123在2015/3/17 21:03:00的发言:
如何将表格对象装到容器中?

 

比如

 

http://www.foxtable.com/help/topics/1186.htm