以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表如何 对绑定的字段运算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87568)

--  作者:yjf123
--  发布时间:2016/7/13 18:31:00
--  专业报表如何 对绑定的字段运算
专业报表如何 对绑定的字段运算 ,比如直接求 数量×单价 的结果? 

Dim doc As New PrintDoc
Dim
rt As New prt.RenderText
rt.DataBinding.DataSource = BindTables(
"订单") \'将rt绑定到订单表
rt.Text=
"[Fields!数量.Value]" & "×" &
 "[Fields!单价.Value]"   \'设置打印字段
doc.body.Children.Add(rt)
doc.Preview()


--  作者:大红袍
--  发布时间:2016/7/13 18:34:00
--  
rt.Text= "[Fields!数量.Value * Fields!单价.Value]" 
--  作者:yjf123
--  发布时间:2016/7/14 15:29:00
--  

能否做表达式判断?

 

rt.Text= "[IIF(Fields!数量.Value=Nothing,Nothing,"乘号"]" 


--  作者:大红袍
--  发布时间:2016/7/14 15:31:00
--  
rt.Text= "[IIF(Fields!数量.Value="""","""",""乘号"")]"
[此贴子已经被作者于2016/7/14 15:31:34编辑过]

--  作者:yjf123
--  发布时间:2016/7/14 15:37:00
--  

rt.Text= "[IIF(Fields!数量.Value="""","""",""乘号"")]"

 

好像不对也,直接打印代码出来了


--  作者:大红袍
--  发布时间:2016/7/14 15:48:00
--  

Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.DataBinding.DataSource = BindTables("表A")
rt.Text= "[iif(Fields!数量.Value & """" = """", """", ""乘号"")]"
doc.body.Children.Add(rt)

doc.Preview()