以文本方式查看主题

-  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=91596)

--  作者:77611471
--  发布时间:2016/10/14 9:33:00
--  [求助]换条件统计,错在那里?
Dim g As New CrossTableBuilder("物料分类", DataTables("BOM表"), "[产品编号]=\'TextBox1\'")
g.HGroups.AddDef("物料分类")
g.VGroups.AddDef("产品编号")
g.Totals.AddDef("金额", "金额")
g.Filter = "[产品编号]=\'TextBox1\'"
g.Build()
MainTable = Tables("物料分类")

--  作者:狐狸爸爸
--  发布时间:2016/10/14 9:47:00
--  
g.Filter = "[产品编号]=\'“ e.form.Controls("TextBox1").Value & "\'"
--  作者:77611471
--  发布时间:2016/10/14 10:23:00
--  
编译错误:应为结束语句!
--  作者:有点蓝
--  发布时间:2016/10/14 10:26:00
--  
Dim g As New CrossTableBuilder("物料分类", DataTables("BOM表"))
g.HGroups.AddDef("物料分类")
g.VGroups.AddDef("产品编号")
g.Totals.AddDef("金额", "金额")
g.Filter = "[产品编号]=\'“ e.form.Controls("TextBox1").Value & "\'"
g.Build()
MainTable = Tables("物料分类")

--  作者:77611471
--  发布时间:2016/10/14 10:47:00
--  
还是错误
[此贴子已经被作者于2016/10/14 10:48:32编辑过]

--  作者:有点蓝
--  发布时间:2016/10/14 11:03:00
--  
请上传例子测试
--  作者:77611471
--  发布时间:2016/10/14 11:09:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


密码:888

在BOM表里面有一个成分分析按钮

--  作者:狐狸爸爸
--  发布时间:2016/10/14 11:10:00
--  
g.Filter = "[产品编号]=\'“ &  e.form.Controls("TextBox1").Value & "\'"
--  作者:小蘑菇的小和尚
--  发布时间:2016/10/14 11:18:00
--  
少了个 &
--  作者:有点蓝
--  发布时间:2016/10/14 11:25:00
--  
Dim g As New CrossTableBuilder("物料分类", DataTables("BOM表"))
g.HGroups.AddDef("物料分类")
g.VGroups.AddDef("产品编号")
g.Totals.AddDef("金额", "金额")
g.Filter = "[产品编号]=\'" &  e.form.Controls("TextBox1").Value & "\'"
g.Build()
MainTable = Tables("物料分类")