以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  条件合计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159491)

--  作者:hopestarxia
--  发布时间:2020/12/28 11:48:00
--  条件合计
Dim t1 As Table = e.form.Controls("Table1").Table

Dim dr As Row = Tables("主表_Table1").Rows(1)\'引用第二行
dr("N1") = t1.Compute("Sum(sdje)")   想在此加条件,比如说t1表中 的所有数据行中 A列 的值 = "调整值" 字符的,才参与合计。请问老师此处怎么处理?


--  作者:有点蓝
--  发布时间:2020/12/28 11:52:00
--  
dr("N1") = t1.Compute("Sum(sdje)","A列=\'调整值\'")
--  作者:hopestarxia
--  发布时间:2020/12/28 12:09:00
--  
谢谢老师!
--  作者:hopestarxia
--  发布时间:2020/12/28 13:08:00
--  
老师,调整后代码报错:请老师看看。
Dim t1 As Table = e.form.Controls("Table1").Table

Dim t As Table = Forms("主表").Controls("Table1").Table
For Each r As Row In t.Rows
r("lrje") =  t1.Compute("Sum(N1)","NEWTYPE = r("name")")  本句的条件我是想写成主表T的行的lrje列值 等于当前窗口表的NI列合计,合计的条件是T1表的 内容例 NEWTYPE 的值等于 主表对应的合计行的项目名字(r("name")) ,结果这样写条件报错了,提示“编辑去看一看:应为逗 号、”)“或有效的表大家式继续 符,错误代码 :r("lrje") =  t1.Compute("Sum(N1)","NEWTYPE = r("name")")   ”   
Next

请问老师条件处应如何修改。



--  作者:hopestarxia
--  发布时间:2020/12/28 13:10:00
--  
老师,调整后代码报错:请老师看看。
Dim t1 As Table = e.form.Controls("Table1").Table

Dim t As Table = Forms("主表").Controls("Table1").Table
For Each r As Row In t.Rows
r("lrje") =  t1.Compute("Sum(N1)","NEWTYPE = r("name")")  本句的条件我是想写成主表T的行的lrje列值 等于当前窗口表的NI列合计,合计的条件是T1表的 内容例 NEWTYPE 的值等于 主表对应的合计行的项目名字(r("name")) ,结果这样写条件报错了,提示“编辑去看一看:应为逗 号、”)“或有效的表大家式继续 符,错误代码 :r("lrje") =  t1.Compute("Sum(N1)","NEWTYPE = r("name")")   ”   
Next

请问老师条件处应如何修改。

条件改为为了单引号的也是不行的  
r("lrje") =  t1.Compute("Sum(N1)","NEWTYPE = \'r(name)\' ")  (不报错不起作用条件)
                                             r("lrje") =  t1.Compute("Sum(N1)","NEWTYPE = \'r("name")\' ")  报前面相同错误 

--  作者:有点蓝
--  发布时间:2020/12/28 13:43:00
--  
先看几遍:http://www.foxtable.com/webhelp/topics/1284.htm

r("lrje") =  t1.Compute("Sum(N1)","NEWTYPE = \'" & r("name") & "\'")

--  作者:hopestarxia
--  发布时间:2020/12/28 13:48:00
--  
谢谢老师,这个用过,我一直以为这个只是要带到SQL语句里才用到 \'"&    &"\',   谢谢老师。