| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 有条件地直接引用表数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120802) |
| -- 作者：aza520 -- 发布时间：2018/6/24 9:40:00 -- 有条件地直接引用表数据 EXCEL报表里想直接引用未关联表的数据，条件是：施工合同段 = \'No.1\' 请问老师，以下代码为什么不起作用 [@变更信息表,暂定金额,施工合同段 = \'No.1\']
|
| -- 作者：有点甜 -- 发布时间：2018/6/24 21:32:00 -- 直接引用不能添加条件的。
或者你模板里面写 [!abc]
然后在生成之前赋值，如 vars("abc") = 123456 \'自己去查找值赋值 |
| -- 作者：aza520 -- 发布时间：2018/7/5 11:55:00 -- 显示未声明名称“No” Dim Book As New XLS.Book(ProjectPath & "Attachments\\变更一览表.xlsx") Dim fl As String = ProjectPath & "Reports\\变更一览表.xlsx" Dim filter As String = IIF(vars("变更信息表filter") > ""," where " & vars("变更信息表filter") & " and 承包人申报=1"," where 承包人申报=1") book.AddDataTable("变更一览表","xlgl","Select *, (selec t sum(Round(Case When 变更后数量 Is null Then 0 Else 变更后数量 End * Case When 单价 Is null Then 0 Else 单价 End,0) - Round(Case When 变更前数量 Is null Then 0 Else 变更前数量 End * Case When 单价 Is null Then 0 Else 单价 End,0)) fro m {申请费用表} b where a.项目名称=b.项目名称 and a.变更编号=b. 变更编号) As [估计变更金额] fro m {变更申请单} a " & filter) vars("abcd") = No.1\' vars("bbcd") = No.2\' vars("cbcd") = No.3\' vars("dbcd") = No.4\' Book.Build() Book.Save(fl) Dim Proc As New Process Proc.File = fl Proc.Start()
|
| -- 作者：有点甜 -- 发布时间：2018/7/5 12:19:00 -- 改成这样
vars("abcd") = "No.1"
vars("bbcd") = "No.2"
vars("cbcd") = "No.3"
vars("dbcd") = "No.4"
|