Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不知该用哪个统计语句


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

主题：不知该用哪个统计语句
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/9/22 15:17:00 [显示全部帖子]

 楼主是问 根据日期统计各个地区的进货额？
[此贴子已经被作者于2012-9-22 15:18:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/9/22 15:53:00 [显示全部帖子]

 哦哦，明白。

 '处理一下数组
 dim data as String = ""
 for each s as String in sz
     data = data &  s & ","
 next

 data = data.trim(",")

 b.Filter = "[企业代码] in (" & data & ")"

 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00 		  发帖心情 Post By：2012/9/22 17:23:00 [显示全部帖子]

 hello，改成下面这样。

Dim dq As String

dq =  e.Form.controls("选择地区").text      

Dim n As Integer

If DataTables("基本信息").find("[所属地区] = '"& dq &"'") IsNot Nothing Then
   drs = DataTables("基本信息").Select("[所属地区] = '" & dq & "'")
   Dim ids As String = ""
   For Each dr As DataRow In drs
      ids = idx & dr("_Identify") & ","
   Next
   ids.Trim(",")

   Dim b As New GroupTableBuilder("统计表1",DataTables("进货额"))
 
   b.Filter = "_Identify in (" & ids & ")"
  
   b.Groups.AddDef("进货日期",DateGroupEnum.Year,"年") '添加日期列用于分组,并用"年"代替原名称
   b.Groups.AddDef("进货日期","月") '添加日期列用于分组,并用"月"代替原名称
   b.Totals.AddDef("进货额") '对数量进行统计
   b.Build '生成统计表
   MainTable = Tables("统计表1") '打开生成的统计表         

End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询