Foxtable(狐表)用户栏目专家坐堂 → [求助]换条件统计,错在那里?


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

主题:[求助]换条件统计,错在那里?

帅哥哟,离线,有人找我吗?
77611471
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:97 积分:870 威望:0 精华:0 注册:2016/9/27 14:05:00
[求助]换条件统计,错在那里?  发帖心情 Post By: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("物料分类")

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/10/14 9:47:00 [只看该作者]

g.Filter = "[产品编号]='“ e.form.Controls("TextBox1").Value & "'"

 回到顶部
帅哥哟,离线,有人找我吗?
77611471
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:97 积分:870 威望:0 精华:0 注册:2016/9/27 14:05:00
  发帖心情 Post By:2016/10/14 10:23:00 [只看该作者]

编译错误:应为结束语句!

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110746 积分:563656 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:97 积分:870 威望:0 精华:0 注册:2016/9/27 14:05:00
  发帖心情 Post By:2016/10/14 10:47:00 [只看该作者]

还是错误
[此贴子已经被作者于2016/10/14 10:48:32编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110746 积分:563656 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/14 11:03:00 [只看该作者]

请上传例子测试

 回到顶部
帅哥哟,离线,有人找我吗?
77611471
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:97 积分:870 威望:0 精华:0 注册:2016/9/27 14:05:00
  发帖心情 Post By:2016/10/14 11:09:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


密码:888

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/10/14 11:10:00 [只看该作者]

g.Filter = "[产品编号]='“ &  e.form.Controls("TextBox1").Value & "'"

 回到顶部
帅哥哟,离线,有人找我吗?
小蘑菇的小和尚
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:4 积分:96 威望:0 精华:0 注册:2016/10/14 8:33:00
  发帖心情 Post By:2016/10/14 11:18:00 [只看该作者]

少了个 &

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110746 积分:563656 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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("物料分类")

 回到顶部
总数 12 1 2 下一页