主题：（还有疑问）关于结转问题

我有一个项目想实现关于结转的自动输入。

 做一个按钮，新增一行，然后统计本月之前的收入、支出，相减即可。

附件提示上传成功，怎么看不到呢

 

请使用ie浏览器访问论坛。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:关于结转.table

看看5楼，帮设计下代码，谢谢！！

datacolchanged

 

Select Case e.DataCol.name
    Case "年", "月", "上年结转"
        If e.DataRow.IsNull("年") Then
            e.DataRow("本月余额") = Nothing
        ElseIf e.DataRow("月") = "1" Then
            Dim fdr As DataRow = e.DataTable.find("年 = '" & e.DataRow("年") - 1 & "' and 月 = 12")
            If fdr IsNot Nothing Then
                fdr("本月余额") = e.DataRow("上年结转")
            End If
        End If
End Select

不对啊，当填写本年1月时，把上年12月的本月余额给清零了

那就改成

 

Select Case e.DataCol.name
    Case "年", "月", "上年结转"
        If e.DataRow.IsNull("年") Then
            e.DataRow("本月余额") = Nothing
        ElseIf e.DataRow("月") = "1" Then
            Dim fdr As DataRow = e.DataTable.find("年 = '" & e.DataRow("年") - 1 & "' and 月 = 12")
            If fdr IsNot Nothing Then
                fdr("本月余额") = fdr("上年结转")
            End If
        End If
End Select

效果没变，本年一月没填写数据，却把上年12月的余额给清除了（应该是替换成空值了），是不是方向搞反了？