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


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

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

帅哥哟,离线,有人找我吗?
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()


 回到顶部