Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码出错，求助修改（已解决）


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

主题：[求助]代码出错，求助修改（已解决）
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10639 威望：0 精华：0 注册：2008/9/24 11:16:00 		[求助]代码出错，求助修改（已解决）  发帖心情 Post By：2012/9/15 10:48:00 [只看该作者]

一段代码，跨表汇总人次，代码出错，如何修改，请各位老师指教，谢谢！！

 

For Each dr1 As DataRow In DataTables("综合考核").DataRows
    Dim pr As DataRow
    For j As Integer = 1 To 12
        If dr1.IsNull("部门")  Then
            dr1("人次") = Nothing
        Else
            Dim pr1 As Double = DataTables("个人数据").Compute("Sum("考勤_"& j)","[部门_"& j &"]" = '"& dr1("部门") &"'")
            dr1("人次") = pr1
        End If
    Next
Next

 

 


图片点击可在新窗口打开查看此主题相关图片如下：e.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2012-9-15 14:21:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4841 积分：35105 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2012/9/15 10:53:00 [只看该作者]

Dim pr1 As Double = DataTables("个人数据").Compute("Sum(考勤_" & "j)","[部门_" & j & "] = '" & dr1("部门") & "'")
试试
[此贴子已经被作者于2012-9-15 10:53:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10639 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2012/9/15 11:03:00 [只看该作者]

谢谢y2287958老师的回复，好像还是不行，出错提示如下：

 

 


图片点击可在新窗口打开查看此主题相关图片如下：f.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 Dim pr1 As Double = DataTables("个人数据").Compute("Sum(""考勤_" & j & """)", "[部门_" & j & "] = '" & dr1("部门") & "'")


 & 符号的左右须有有空格

" 符号在字符串中，""表示一个
[此贴子已经被作者于2012-9-15 12:07:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10639 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2012/9/15 11:36:00 [只看该作者]

谢谢lin_hailun老师的回复，好像还是不行，出错提示如下：

 

 


图片点击可在新窗口打开查看此主题相关图片如下：g.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 原帖已修改...再试。

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


加好友 发短信
等级：七尾狐 帖子：1530 积分：10639 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2012/9/15 11:54:00 [只看该作者]

谢谢lin_hailun老师的回复，仍然不行，出错提示如下：

 

 


图片点击可在新窗口打开查看此主题相关图片如下：h.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lin_hailun
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 原帖已再次修改。应该行了。

 Dim pr1 As Double = DataTables("个人数据").Compute("Sum(""考勤_" & j & """)", "[部门_" & j & "] = '" & dr1("部门") & "'"
 回到顶部
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1530 积分：10639 威望：0 精华：0 注册：2008/9/24 11:16:00 		  发帖心情 Post By：2012/9/15 12:41:00 [只看该作者]

谢谢lin_hailun老师的回复，不好意思，仍然不行，出错提示如下：

 

 


图片点击可在新窗口打开查看此主题相关图片如下：i.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6911 积分：43773 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2012/9/15 12:54:00 [只看该作者]

上传例子，我帮你搞定。
 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询