- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 各位高手，我想计算一个方差，不知道代码怎么写，请教各位！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106539)
-- 发布时间：2017/9/11 11:06:00
-- 各位高手，我想计算一个方差，不知道代码怎么写，请教各位！
各位高手，我想计算一个方差，不知道代码怎么写，请教各位！
=退休费合计*（1+6%）^（SubString(Convert([退休时间],\'System.String\'),1,4)-2015）
例如：2017年退休的计算为3214*（1+6%）^（2017-2015）=3611.25
-- 发布时间：2017/9/11 11:19:00
--
不能用表达式，要在DataColChanged事件写代码
Select Case e.DataCol.name
Case "退休费合计", "退休时间"
If e.DataRow.isnull("退休时间") Then
e.DataRow("某列") = Nothing
Else
e.DataRow("某列") = e.DataRow("退休费合计")*(1+0.06)^(Cdate(e.DataRow("退休时间")).year-2015)
End If
End Select
-- 发布时间：2017/9/11 11:38:00
--
不能用表达式，要在DataColChanged事件写代码
Select Case e.DataCol.name
Case "退休费合计", "退休时间"
If e.DataRow.isnull("退休时间") Then
e.DataRow("某列") = Nothing
Else
e.DataRow("某列") = e.DataRow("退休费合计")*(1+0.06)^(Cdate(e.DataRow("退休时间")).year-2015)
End If
End Select
怎么计算值为0呢
-- 发布时间：2017/9/11 11:41:00
--
填入合计数、填入退休时间了吗？我测试代码没问题
-- 发布时间：2017/9/11 11:54:00
--
填入合计数、填入退休时间了吗？我测试代码没问题
我的退休时间是通过退休日期格式化的（e.DataRow("退休日期")=format(e.DataRow("退休时间"),"yyyyMM")），不知道有没有问题
此主题相关图片如下：无标题.jpg
此主题相关图片如下：无标题2.jpg
-- 发布时间：2017/9/11 12:12:00
--
贴出你写的代码。
-- 发布时间：2017/9/11 12:20:00
--
贴出你写的代码。
Select Case e.DataCol.name
Case "退休费合计", "退休时间"
If e.DataRow.isnull("退休时间") Then
e.DataRow("中人老办法待遇") = Nothing
Else
e.DataRow("中人老办法待遇") = e.DataRow("退休费合计")*(1+0.06)^(Cdate(e.DataRow("退休时间")).year-2015)
End If
End Select
Select Case e.DataCol.name
Case "身份证号码"
If e.DataRow.IsNull("身份证号码") Then
e.DataRow("籍贯") = Nothing
Else
Dim bm As String = e.DataRow("身份证号码").SubString(0,6)
Dim dr As DataRow = DataTables("身份证").Find("籍贯编码 = \'" & bm & "\'")
If dr IsNot Nothing Then
e.DataRow("籍贯") = dr("籍贯")
End If
-- 发布时间：2017/9/11 12:23:00
--
代码没问题。你修改一下退休时间列的值看看，肯定重新计算了。
-- 发布时间：2017/9/11 12:29:00
--
代码没问题。你修改一下退休时间列的值看看，肯定重新计算了。
修改退休时间列后，能计算了。谢谢高手！
-- 发布时间：2017/9/11 14:21:00
--
修改退休时间列后，能计算了。谢谢高手！
重置列 http://www.foxtable.com/webhelp/scr/1469.htm