Foxtable(狐表)用户栏目专家坐堂 → 下列代码统计的结果怎么与我实际的要求有出入


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

主题:下列代码统计的结果怎么与我实际的要求有出入

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


加好友 发短信
等级:小狐 帖子:376 积分:4189 威望:0 精华:0 注册:2008/9/1 14:18:00
下列代码统计的结果怎么与我实际的要求有出入  发帖心情 Post By:2010/4/21 9:57:00 [只看该作者]


if e.DataCol.Name = "单位" then
    dim dr as datarow = DataTables("学籍注册").Find("[单位] = '" & e.datarow("单位") & "'")
    if dr isnot nothing then
        e.datarow("毕业人数") = dr("毕业人数")
    else
        e.datarow("毕业人数") = nothing
    end if
    dim bys as Integer = DataTables("tja").Compute("Sum(毕业人数)")
    dim syzx as Integer = DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '实验中学'")
    dim pjzx as Integer = DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '屏锦中学'")
    dim yyzx as Integer = DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '袁驿中学'")
    dim flzx as Integer = DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '福禄中学'")
    if e.datarow("高中招生学校") = "实验中学" then
        e.datarow("实验中学") = 170 / syzx * e.datarow("毕业人数")
    elseif e.datarow("高中招生学校") = "屏锦中学" then
        e.datarow("屏锦中学") = 270 / pjzx * e.datarow("毕业人数")
    elseif e.datarow("高中招生学校") = "袁驿中学" then
        e.datarow("袁驿中学") = 120 / yyzx * e.datarow("毕业人数")
    elseif e.datarow("高中招生学校") = "福禄中学" then
        e.datarow("福禄中学") = 120 / flzx * e.datarow("毕业人数")
      end if
end if

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


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

用例子说话

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


加好友 发短信
等级:小狐 帖子:376 积分:4189 威望:0 精华:0 注册:2008/9/1 14:18:00
  发帖心情 Post By:2010/4/21 10:10:00 [只看该作者]

for each dr as datarow in datatables("tja").datarows
    dim di as datarow = DataTables("学籍注册").Find("[单位] = '" & dr("单位") & "'")
    if di isnot nothing then
        dr("毕业人数") = di("毕业人数")
    else
        dr("毕业人数") = nothing
    end if
    dim bys as Double = DataTables("tja").Compute("Sum(毕业人数)")
    dim syzx as Double = 170 / DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '实验中学'")
    dim pjzx as Double = 270 / DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '屏锦中学'")
    dim yyzx as Double = 120 / DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '袁驿中学'")
    dim flzx as Double = 120 / DataTables("tja").Compute("Sum(毕业人数)", "[高中招生学校] = '福禄中学'")
    if dr("高中招生学校") = "实验中学" then
        dr("实验中学") = syzx * dr("毕业人数")
    elseif dr("高中招生学校") = "屏锦中学" then
        dr("屏锦中学") = pjzx * dr("毕业人数")
    elseif dr("高中招生学校") = "袁驿中学" then
        dr("袁驿中学") =  yyzx * dr("毕业人数")
    elseif dr("高中招生学校") = "福禄中学" then
        dr("福禄中学") = flzx * dr("毕业人数")
    end if
    dr("梁平中学") = 630 / bys * dr("毕业人数")
    dr("红旗中学") = 560 / bys * dr("毕业人数")
    dr("第一中学") = 350 / bys * dr("毕业人数")
next

这个代码放命令窗口与窗口设计中统计的结果不一样。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:指标分配及送生名额.rar


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


加好友 发短信
等级:小狐 帖子:376 积分:4189 威望:0 精华:0 注册:2008/9/1 14:18:00
  发帖心情 Post By:2010/4/21 10:10:00 [只看该作者]

请老六检查一下是怎么回事

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


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

我没看出有啥不同

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


加好友 发短信
等级:小狐 帖子:376 积分:4189 威望:0 精华:0 注册:2008/9/1 14:18:00
  发帖心情 Post By:2010/4/21 10:56:00 [只看该作者]

你看结果

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


加好友 发短信
等级:小狐 帖子:376 积分:4189 威望:0 精华:0 注册:2008/9/1 14:18:00
  发帖心情 Post By:2010/4/21 11:07:00 [只看该作者]

狐你你看看两次统计的结果,前几个单位,你可以对比一下

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


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

我看了的

 回到顶部