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


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

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


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


Select Case e.DataCol.Name
    Case "供应商名称","会计年月","fa piao金额"     '加入无税金额和税率的目的是,当无税金额或税率改变时,fa piao金额变化.
        If e.DataRow.IsNull("供应商名称") OrElse e.DataRow.IsNull("会计年月")  Then
        Else
            Dim filter As String = "供应商名称='" & e.DataRow("供应商名称") & "' and 会计年月='" & e.DataRow("会计年月")  & "'"
            Dim vl As Double =  e.DataTable.Compute("sum(当月汇总金额)",filter)
            Dim dr1 As DataRow = e.DataTable.Find(filter,"[_Identify] desc")
            e.DataTable.ReplaceFor("fa piao金额",Nothing,filter)
            If dr1 IsNot Nothing Then
                dr1("fa piao金额") = vl
            End If
        End If
End Select


表中有，供应商名称、会计年月、fa piao号码、fa piao金额、当月汇总金额列。以上代码我想统计相同供应商名称、会计年月的fa piao金额。
现在有两个问题：一是重置供应商名称列，程序就显退；二是当月汇总金额全部为零。
请各位老师帮忙看一下问题出在哪了。
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


图片点击可在新窗口打开查看此主题相关图片如下：222_看图王.png
图片点击可在新窗口打开查看

这是截图，请各位老师帮忙。
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请有点蓝老师帮忙呀。

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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/11/16 14:50:00 [只看该作者]

Select Case e.DataCol.Name
    Case "供应商名称","会计年月"    '加入无税金额和税率的目的是,当无税金额或税率改变时,fa piao金额变化.
        If e.DataRow.IsNull("供应商名称") OrElse e.DataRow.IsNull("会计年月")  Then
        Else
            Dim filter As String = "供应商名称='" & e.DataRow("供应商名称") & "' and 会计年月='" & e.DataRow("会计年月")  & "'"
            Dim vl As Double =  e.DataTable.Compute("sum(当月汇总金额)",filter)
            Dim dr1 As DataRow = e.DataTable.Find(filter,"[_Identify] desc")
            e.DataTable.ReplaceFor("fa piao金额",Nothing,filter)
            If dr1 IsNot Nothing Then
                dr1("fa piao金额") = vl
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

有点蓝老师，以上代码，我重置供应商名称列后，fa piao金额变成零了。当月汇总金额没有数。请老师看一看是怎么回事？

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


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

请有点蓝老师帮忙呀。

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


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

你自己搞反了吧

Select Case e.DataCol.Name
    Case "供应商名称","会计年月"    '加入无税金额和税率的目的是,当无税金额或税率改变时,fa piao金额变化.
        If e.DataRow.IsNull("供应商名称") OrElse e.DataRow.IsNull("会计年月")  Then
        Else
            Dim filter As String = "供应商名称='" & e.DataRow("供应商名称") & "' and 会计年月='" & e.DataRow("会计年月")  & "'"
            Dim vl As Double =  e.DataTable.Compute("sum(fa piao金额)",filter)
            Dim dr1 As DataRow = e.DataTable.Find(filter,"[_Identify] desc")
            e.DataTable.ReplaceFor("当月汇总金额",Nothing,filter)
            If dr1 IsNot Nothing Then
                dr1("当月汇总金额") = vl
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

非常感谢有点蓝老师。

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


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


图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看


有点蓝老师，麻烦再看一下，如图出现的问题，当月汇总金额不含当月最后一行的金额。
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请有点蓝老师帮忙呀。

 回到顶部
总数 11 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.07031 秒, 4 次数据查询