- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码出错，求助修改（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23647)
-- 发布时间：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编辑过]
-- 发布时间：2012/9/15 10:53:00
--
Dim pr1 As Double = DataTables("个人数据").Compute("Sum(考勤_" & "j)","[部门_" & j & "] = \'" & dr1("部门") & "\'")
试试
[此贴子已经被作者于2012-9-15 10:53:58编辑过]
-- 发布时间：2012/9/15 11:03:00
--
谢谢y2287958老师的回复，好像还是不行，出错提示如下：
此主题相关图片如下：f.jpg
-- 发布时间：2012/9/15 11:28:00
--
Dim pr1 As Double = DataTables("个人数据").Compute("Sum(""考勤_" & j & """)", "[部门_" & j & "] = \'" & dr1("部门") & "\'")
& 符号的左右须有有空格
" 符号在字符串中，""表示一个
[此贴子已经被作者于2012-9-15 12:07:57编辑过]
-- 发布时间：2012/9/15 11:36:00
--
谢谢lin_hailun老师的回复，好像还是不行，出错提示如下：
此主题相关图片如下：g.jpg
-- 发布时间：2012/9/15 11:38:00
--
原帖已修改...再试。
-- 发布时间：2012/9/15 11:54:00
--
谢谢lin_hailun老师的回复，仍然不行，出错提示如下：
此主题相关图片如下：h.jpg
-- 发布时间：2012/9/15 12:09:00
--
原帖已再次修改。应该行了。
Dim pr1 As Double = DataTables("个人数据").Compute("Sum(""考勤_" & j & """)", "[部门_" & j & "] = \'" & dr1("部门") & "\'"
-- 发布时间：2012/9/15 12:41:00
--
谢谢lin_hailun老师的回复，不好意思，仍然不行，出错提示如下：
此主题相关图片如下：i.jpg
-- 发布时间：2012/9/15 12:54:00
--
上传例子，我帮你搞定。