Foxtable(狐表)用户栏目专家坐堂 → 求助:如何将第一行计算得到的值,在今后的行里面同列同样同步赋值呢?


  共有3946人关注过本帖树形打印复制链接

主题:求助:如何将第一行计算得到的值,在今后的行里面同列同样同步赋值呢?

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求助:如何将第一行计算得到的值,在今后的行里面同列同样同步赋值呢?  发帖心情 Post By:2014/6/15 23:32:00 [只看该作者]

求助:如何将第一行计算得到的值,在今后的行里面同列同样同步赋值呢?

 

 


图片点击可在新窗口打开查看此主题相关图片如下:14.jpg
图片点击可在新窗口打开查看

计算代码:

e.DataRow("现金流出_贷款利息")=e.DataRow("现金收入_贷款")*0.006

 

想实现效果第一个月进行计算后,2到12月利息自动等于第一个月的贷款利息。


 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4640 积分:33850 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/6/16 6:07:00 [只看该作者]

加个判断条件即可
例如:if e.DataRow("月份")=“1”
……

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/16 9:18:00 [只看该作者]

代码

 

static temp As Double
Select Case e.DataCol.Name
    Case "现金收入_贷款"
        If e.DataRow("月份") = 1 Then
            e.DataRow("现金流出_贷款利息") = e.DataRow("现金收入_贷款")*0.006
            temp = e.DataRow("现金流出_贷款利息")
        Else
            e.DataRow("现金流出_贷款利息") = temp
        End If
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)代码 static temp As Doubl...  发帖心情 Post By:2014/6/16 9:34:00 [只看该作者]

感谢有点甜老师的解答

运行如上代码之后  问题依旧

例子如下:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:创业计划书0617.zip



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/16 10:01:00 [只看该作者]

 那就这样写

 

Select Case e.DataCol.Name
    Case "月份"
        If e.DataRow("月份") <> 1 Then
            e.DataRow("现金流出_贷款利息") = e.DataTable.Find("月份 = '1'")("现金流出_贷款利息")
        End If
    Case "现金收入_贷款"
        e.DataRow("现金流出_贷款利息") = e.DataRow("现金收入_贷款")*0.006
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 那就这样写 Select C...  发帖心情 Post By:2014/6/16 11:59:00 [只看该作者]

有点甜老师 



代码运行如下
一月贷款利息是600
二月居然就是11了
然后一直到12月都是11


图片点击可在新窗口打开查看此主题相关图片如下:0616.jpg
图片点击可在新窗口打开查看
明显还是不对哦 

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/16 12:01:00 [只看该作者]

你的表的数据有问题,你得先清空你的表数据。

 

DataTables("xxxx").DataRows.Clear


 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)你的表的数据有问题,你得先清空你的...  发帖心情 Post By:2014/6/16 12:07:00 [只看该作者]

清空现金流量表么  已经删除了  问题依旧

第一个月有贷款录入时候变动是正常的额
但是第二个月到第十二月就不正常啦


好纠结哦

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/16 12:18:00 [只看该作者]

请用代码情况,OK?

 

DataTables("xxxx").DataRows.Clear


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57590 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2014/6/16 12:28:00 [只看该作者]

Dim temp As Double
Select Case e.DataCol.Name
    Case "现金收入_贷款"
        If e.DataRow("月份") = 1 Then
            e.DataRow("现金流出_贷款利息") = e.DataRow("现金收入_贷款")*0.006
            temp = e.DataRow("现金流出_贷款利息")
        Else
            Dim n As Integer = 0
            Dim drs As List(Of DataRow) = e.DataTable.Select("月份 Is Not Null")
            For n  = 0 To drs.Count - 1
                If n > 0 And drs.Count > 0 Then
                    e.DataRow("现金流出_贷款利息") = drs(n-1)("现金流出_贷款利息")
                End If
            Next
        End If
End Select

 回到顶部
总数 15 1 2 下一页