Foxtable(狐表)用户栏目专家坐堂 → [求助]专业报表中的数据绑定能设置条件吗?


  共有2252人关注过本帖树形打印复制链接

主题:[求助]专业报表中的数据绑定能设置条件吗?

帅哥哟,离线,有人找我吗?
huangfanzi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
[求助]专业报表中的数据绑定能设置条件吗?  发帖心情 Post By:2018/2/23 8:34:00 [只看该作者]

下面代码是教程中的例子,假定当前的订单表上有多个产品记录,我希望只将产品名为 PD1的记录进行绑定,请问如何设置,谢谢!

Dim doc As New PrintDoc
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.RowGroups(
1,1).DataBinding.DataSource = BindTables("订单") '将第二行绑定到订单表
doc.Body.Children.Add(rt)
doc.Preview()


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/23 8:46:00 [只看该作者]

直接对table进行筛选即可,如

 

Dim tb as Table = Tables("订单")

tb.Filter = "产品 = 'pd01'"


 回到顶部