Foxtable(狐表) → 用户栏目 → 专家坐堂 → 计算合计金额的编码问题


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

主题：计算合计金额的编码问题
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		计算合计金额的编码问题  发帖心情 Post By：2016/10/31 14:09:00 [只看该作者]

问题如下图，请各位老师帮忙！
图片点击可在新窗口打开查看此主题相关图片如下：求合计金额计算编码问题.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/10/31 14:39:00 [只看该作者]

急用，请有点蓝老师帮忙呀。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/31 15:47:00 [只看该作者]

Select Case e.DataCol.Name
    Case "名称","年月","编号"
        If e.DataRow.IsNull("名称") OrElse e.DataRow.IsNull("年月") OrElse e.DataRow.IsNull("编号") Then
        Else
            Dim filter As String = "名称='" & e.DataRow("名称") & "' and 年月='" & e.DataRow("年月") & "' and 编号='" & e.DataRow("编号") & "'"
            Dim vl As Double =  e.DataTable.Compute("sum(余额)",filter)
            Dim dr As DataRow = e.DataTable.Find(filter,"[_Identify] desc")
            e.DataTable.ReplaceFor("金额",Nothing,filter)
            If dr IsNot Nothing Then
                dr("金额") = vl
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/10/31 16:30:00 [只看该作者]

非常感谢有点蓝老师。

 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/10/31 16:56:00 [只看该作者]

'计算fa piao金额
Select Case e.DataCol.Name
    Case "供应名称","会计年月","fa piao号"
        If e.DataRow.IsNull("供应商名称") OrElse e.DataRow.IsNull("会计年月") OrElse e.DataRow.IsNull("fa piao号") Then
        Else
            Dim filter As String = "供应商名称='" & e.DataRow("供应商名称") & "' and 会计年月='" & e.DataRow("会计年月") & "' and fa piao号='" & e.DataRow("fa piao号") & "'"
            Dim vl As Double =  e.DataTable.Compute("sum(合计金额)",filter)
            Dim dr As DataRow = e.DataTable.Find(filter,"[_Identify] desc")
            e.DataTable.ReplaceFor("fa piao金额",Nothing,filter)
            If dr IsNot Nothing Then
                dr("fa piao金额") = vl
            End If
        End If
End Select


有点蓝老师，我把编码改了一下，但出现如下错误。
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/10/31 16:59:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20161031165525.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/10/31 16:59:00 [只看该作者]

请有点蓝老师帮忙。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110571 积分：562745 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/31 17:45:00 [只看该作者]

事件其它代码已经定义了一个dr，改为其它名称，如

Dim dr100 As DataRow = e.DataTable.Find(filter,"[_Identify] desc")
            e.DataTable.ReplaceFor("fa piao金额",Nothing,filter)
            If dr100 IsNot Nothing Then
                dr100("fa piao金额") = vl
            End If
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/11/1 7:51:00 [只看该作者]

非常感谢有点蓝老师的帮忙。

 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/11/1 8:05:00 [只看该作者]

还得麻烦有点蓝老师，因为每行我最后输入的列是“无税金额”列。能不能再改动一下编码，实现，当“无税金额”列数值变动时，“fa piao金额”列数值变动。谢谢。

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 4 次数据查询