Foxtable(狐表)用户栏目专家坐堂 → 同一表中按条件查找并获取数据


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

主题:同一表中按条件查找并获取数据

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


加好友 发短信
等级:童狐 帖子:238 积分:1943 威望:0 精华:0 注册:2016/1/11 8:40:00
同一表中按条件查找并获取数据  发帖心情 Post By:2019/8/3 11:02:00 [只看该作者]

各位专家好!
      我在专业报表中使用New SQLGroupTableBuilder("各工序加工张数统计","生产加工登记表")建立了一个各工序加工张数统计的表:
代码如下:
Dim b As New SQLGroupTableBuilder("各工序加工张数统计","生产加工登记表")
b.C
b.Groups.AddDef("加工时间", DateGroupEnum.Year, "年")
b.Groups.AddDef("加工时间", "月")
b.Groups.Adddef("工资成本归属部门")
b.Groups.Adddef("工序名称")
b.Groups.Adddef("产品名称及令号")
b.Totals.Addexp("加工量次数","加工数量*加工道数")
b.Totals.Addexp("计件工资总额","加工数量*本单计件单价*加工道数")
b.Totals.Addexp("染色出鼓张数","iif(工序名称 = '染色出鼓',加工数量,0)")
b.Build()
DataTables("各工序加工张数统计").DataCols.Add("所属生产线",Gettype(String),"IIF([产品名称及令号] is null,'',IIF([产品名称及令号] Like '%xmg%' or [产品名称及令号] Like '%lsx%'or [产品名称及令号] Like '%鞋面革%','鞋面革',))")
DataTables("各工序加工张数统计").DataCols.Add("层别",Gettype(String),"IIF([产品名称及令号] is null,'',IIF([产品名称及令号] Like '%打样%'or [产品名称及令号] Like '%样品%','打样'))")
DataTables("各工序加工张数统计").DataCols.Add("加工张数",Gettype(Double),"")
MainTable = Tables("各工序加工张数统计")
生产的统计表如下:

图片点击可在新窗口打开查看此主题相关图片如下:{0d250b0a-4b52-49f1-b051-a5f10d72ba33}_20190803105324.jpg
图片点击可在新窗口打开查看
其实我是想让加工张数得出这个规则的数据的,那就是:在加工工序不是”染色出鼓“的工序的行如果在加工工序是”染色出鼓“的所有行中找到与之相同的产品名称及令号,就等于加工工序为”染色出鼓“的”染色出鼓张数“,否则就还是等于0。请问要如何添加代码呢?谢谢!

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


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/3 11:46:00 [只看该作者]

for each dr as datarow in dataTables("各工序加工张数统计").select("工序名称 <> '染色出鼓'")
dim dr2 as datarow = dataTables("各工序加工张数统计").find("工序名称 = '染色出鼓' and 产品名称及令号='" &dr("产品名称及令号") & "'")
if dr2 isnot nothing then
dr("加工张数") = dr2("染色出鼓张数") 
end if
next

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


加好友 发短信
等级:童狐 帖子:238 积分:1943 威望:0 精华:0 注册:2016/1/11 8:40:00
  发帖心情 Post By:2019/8/3 12:21:00 [只看该作者]

请问将这段代码加在我先前代码的什么位置呢?谢谢!

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


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/8/3 14:13:00 [只看该作者]

最后

 回到顶部