[求助]代码修改（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有8602人关注过本帖树形打印复制链接主题：[求助]代码修改（已解决）

yyzlxc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

[求助]代码修改（已解决） 发帖心情

Post By：2012/6/13 15:29:00 [只看该作者]

For Each dr1 As DataRow In DataTables("单位系数").DataRows
    If dr1.IsNull("部门") Then
        dr1("月系数_1") = Nothing
    Else
        Dim pr As Double = DataTables("个人数据").Compute("Sum(系数_1)","[部门_1] ='" & dr1("部门") & "'")
        dr1("月系数_1") = pr
    End If
Next

上面的代码在命令窗口通过，要修改成For...Next循环，将代码中的 1 替换为 i ，代码应该如何修改，请各位老师指教，谢谢！！

For Each dr1 As DataRow In DataTables("单位系数").DataRows
    For i As Integer = 1 To 12
        If dr1.IsNull("部门") Then
            dr1("月系数_" & i) = Nothing
        Else
            Dim pr As Double = DataTables("个人数据").Compute("Sum("系数_" & i)","["部门_" & i] ='" & dr1("部门") & "'")
            dr1("月系数_" & i) = pr
        End If
    Next
Next

[此贴子已经被作者于2012-6-13 16:26:09编辑过]

xongyijd

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：245 积分：3629 威望：0 精华：1 注册：2010/5/9 18:45:00

Post By：2012/6/13 15:48:00 [只看该作者]

For Each dr1 As Row In DataTables("单位系数").Rows
    For Each dr2 As DataCol In DataTables("单位系数").DataCols
        For i As Integer = 0 To dr1.Count-1
            If dr1.IsNull("部门") Then
                dr1(dr2.Name) = Nothing
            Else
                Dim pr As Double = DataTables("个人数据").Compute("Sum(系数_1)","[部门_ & dr2.name] = '" & dr1("部门") & "'")
                dr1(dr2.Name) = pr
            End If
        Next
    Next
Next

[此贴子已经被作者于2012-6-13 15:58:06编辑过]

yyzlxc

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/6/13 15:56:00 [只看该作者]

谢谢xongyijd老师的回复，但是代码在命令窗口未能通过，另外循环就是12个月，还请指教，谢谢！！

此主题相关图片如下：e.png

xongyijd

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：245 积分：3629 威望：0 精华：1 注册：2010/5/9 18:45:00

Post By：2012/6/13 16:03:00 [只看该作者]

这样看看：

For Each dr1 As DataRow In DataTables("单位系数").DataRows
    For Each dr2 As DataCol In DataTables("单位系数").DataCols
        For Each i As DataRow In dr1
            If i.IsNull("部门") Then
                i(dr2.Name) = Nothing
            Else
                Dim pr As Double = DataTables("个人数据").Compute("Sum(系数_1)","["部门] = '" & dr1("部门") & "'")
                i(dr2.Name) = pr
            End If
        Next
    Next
Next

yyzlxc

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/6/13 16:12:00 [只看该作者]

谢谢xongyijd老师的回复，好像还是不行。

图片点击可在新窗口打开查看此主题相关图片如下：f.png

另外，在命令窗口运行上面加黄色标记的这段代码，出现的错误提示如下，估计可能就是双引号单引号的问题，还请指教，谢谢！！

此主题相关图片如下：g.png

狐狸爸爸

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/6/13 16:20:00 [只看该作者]

For Each dr1 As DataRow In DataTables("单位系数").DataRows
    For i As Integer = 1 To 12
        If dr1.IsNull("部门") Then
            dr1("月系数_" & i) = Nothing
        Else
            Dim pr As Double = DataTables("个人数据").Compute("Sum(系数_" & i & ")","[部门_" & i & "] ='" & dr1("部门") & "'")
            dr1("月系数_" & i) = pr
        End If
    Next
Next

xongyijd

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：245 积分：3629 威望：0 精华：1 注册：2010/5/9 18:45:00

Post By：2012/6/13 16:23:00 [只看该作者]

我弄错了

这样看看：

For Each dr1 As DataRow In DataTables("单位系数").DataRows
For Each dr2 As DataCol In DataTables("单位系数").DataCols
If dr1.IsNull("部门") Then
dr1(dr2.Name) = Nothing
Else
Dim pr As Double = DataTables("个人数据").Compute("Sum(系数_1)"，"[部门] = '" & dr1("部门") & "'")
dr1(dr2.Name) = pr
End If
Next
Next

[此贴子已经被作者于2012-6-13 16:24:28编辑过]

yyzlxc

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1530 积分：10633 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2012/6/13 16:25:00 [只看该作者]

谢谢狐爸老师的指教，问题得到圆满解决，再次感谢！！同时也谢谢xongyijd老师的热心帮助！！

下一主题 >> << 上一主题

主题：[求助]代码修改（已解决）