DON老师，再帮我精简一段代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → DON老师，再帮我精简一段代码

共有5972人关注过本帖树形打印复制链接主题：DON老师，再帮我精简一段代码

zerov

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

加好友

发短信

等级：四尾狐帖子：867 积分：6210 威望：0 精华：0 注册：2012/11/24 20:44:00

DON老师，再帮我精简一段代码 发帖心情

Post By：2013/6/5 9:42:00 [只看该作者]

意思是，月份数值有变动时，则自动求和（不想用表达式，不能导出，特别是我把表放到另一个系统时不方便迁移）

Select Case e.DataCol.Name

Case "TX2013年01月","TX2013年02月","TX2013年03月","TX2013年04月","TX2013年05月","TX2013年06月","TX2013年07月","TX2013年08月","TX2013年09月","TX2013年10月","TX2013年11月","TX2013年12月","TX2014年01月","TX2014年02月","TX2014年03月","TX2014年04月","TX2014年05月","TX2014年06月","TX2014年07月","TX2014年08月","TX2014年09月","TX2014年10月","TX2014年11月","TX2014年12月"

Dim er As DataRow = e.DataRow

If e.NewValue<>e.OldValue Then

er("TX2013年合计")=er("TX2013年01月")+er("TX2013年02月")+er("TX2013年03月")+er("TX2013年04月")+er("TX2013年05月")+er("TX2013年06月")+er("TX2013年07月")+er("TX2013年08月")+er("TX2013年09月")+er("TX2013年10月")+er("TX2013年11月")+er("TX2013年12月")

er("TX2014年合计")=er("TX2014年01月")+er("TX2014年02月")+er("TX2014年03月")+er("TX2014年04月")+er("TX2014年05月")+er("TX2014年06月")+er("TX2014年07月")+er("TX2014年08月")+er("TX2014年09月")+er("TX2014年10月")+er("TX2014年11月")+er("TX2014年12月")

End If

End Select

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/6/5 9:59:00 [只看该作者]

列名好奇怪呀：有具体的日期，那就要经常变动列名，这项目只能自己用了，发布后很快作废。

狐狸爸爸

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

加好友

发短信

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

Post By：2013/6/5 9:59:00 [只看该作者]

简单的相加，你用表达式，不简单很多吗？

jspta

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

加好友

发短信

等级：七尾狐帖子：1732 积分：11266 威望：0 精华：0 注册：2011/12/15 22:06:00

Post By：2013/6/5 9:59:00 [只看该作者]

你这个列名有点问题哦，以后再增长怎么办？

Dim yy As String = e.DataCol.name.SubString(2,4)
If e.DataCol.name Like "TX" & yy & "年%月" Then
    Dim dcm As Decimal = 0
    For Each dc As DataCol In e.DataTable.DataCols
        If dc.Name Like "TX" & yy & "年%月" Then
            dcm = dcm + e.DataRow(dc.Name)
        End If
    Next
    e.DataRow("TX" & yy & "年合计")= dcm
End If