Foxtable(狐表)用户栏目专家坐堂 → 请问,下列代码为什么只统计加载到当前表中的数据?


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

主题:请问,下列代码为什么只统计加载到当前表中的数据?

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


加好友 发短信
等级:六尾狐 帖子:1290 积分:9820 威望:0 精华:0 注册:2012/9/19 21:13:00
请问,下列代码为什么只统计加载到当前表中的数据?  发帖心情 Post By:2013/1/7 22:14:00 [只看该作者]

请问,下列代码为什么只统计加载到当前表中的数据?而不是统计后台数据。统计后台数据如何改代码?

 

DataTables("坯布统计表").DataRows.Clear() '清除原来的数据
For Each nm() As String In DataTables("坯布输入").GetUniqueValues("","产品名称","年","月")
    Dim dr  As DataRow = DataTables("坯布统计表").AddNew()
    Dim ft As Date = new Date(Date.Today.Year,Date.Today.Month,23)
    ft= ft.AddMonths(-1)

       dr("产品名称") = nm(0)

       dr("年") = nm(1)
       dr("月") = nm(2)
       dr("下机坯布_本日") = DataTables("坯布输入").compute("Sum(匹数)","产品名称 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 = #" & Date.Today & "#")
       dr("下机坯布_累计") = DataTables("坯布输入").compute("Sum(匹数)","产品名称 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "'and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")

       dr("产量_本日") = DataTables("坯布输入").compute("Sum(总长)","产品名称 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 = #" & Date.Today & "#")
      dr("产量_累计") = DataTables("坯布输入").compute("Sum(总长)","产品名称 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
      dr("扣分_本日") = DataTables("坯布输入").compute("Sum(织造车间扣分)","产品名称 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 = #" & Date.Today & "#")
      dr("扣分_累计") = DataTables("坯布输入").compute("Sum(织造车间扣分)","产品名称 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "'and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
      dr("重量_本日") = DataTables("坯布输入").compute("Sum(总重)","产品名称 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "' and 日期 = #" & Date.Today & "#")
      dr("重量_累计") = DataTables("坯布输入").compute("Sum(总重)","产品名称 = '" & nm(0) & "' AND 年 = '" & nm(1) & "'And 月 = '" & nm(2) & "'and 日期 >= #" & ft & "# And 日期 <= #" & Date.Today & "#")
 Next


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/8 15:26:00 [只看该作者]

 如果要统计后台,就需要用到sql语句了。

Dim cmd As New sqlcommand
cmd.commandText = "Select Sum(总长) from {坯布输入} where 产品名称 = 'xxx' And 年 = 'xxx'"
dim data as string = cmd.ExecuteScalar
msgbox(data)

http://www.foxtable.com/help/topics/0696.htm
[此贴子已经被作者于2013-1-8 15:29:46编辑过]

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


加好友 发短信
等级:六尾狐 帖子:1290 积分:9820 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2013/1/8 18:25:00 [只看该作者]

非常感谢指点,再次感谢

 回到顶部