Foxtable(狐表)用户栏目专家坐堂 → 应交税额显示问题


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

主题:应交税额显示问题

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106597 积分:542156 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/3 15:24:00 [显示全部帖子]

看不懂,请上传实例测试

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106597 积分:542156 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/3 16:51:00 [显示全部帖子]

1楼这段代码到底想要干嘛?请使用文字详细说明

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


加好友 发短信
等级:超级版主 帖子:106597 积分:542156 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/3 17:26:00 [显示全部帖子]

那就直接保留这一句代码不就行了。1楼剩下的99%的代码没有用就去掉呗。

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106597 积分:542156 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/4 14:09:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "正数是应交税额负数是留抵税额","简易销项税额"
        If e.DataRow("正数是应交税额负数是留抵税额") < 0 Then
            If e.DataTable.DataCols.Contains("简易销项税额") Then
                e.DataRow("应交税额") = e.DataRow("简易销项税额")
            Else
                e.DataRow("应交税额") = Nothing
            End If
        Else
            If e.DataTable.DataCols.Contains("简易销项税额") Then
                e.DataRow("应交税额") = e.DataRow("正数是应交税额负数是留抵税额") + e.DataRow("简易销项税额")
            Else
                e.DataRow("应交税额") = e.DataRow("正数是应交税额负数是留抵税额")
            End If
        End If
    Case "应交税额"
        e.DataRow("城建税") = Round2(e.DataRow("应交税额") * 0.05 , 2)
        e.DataRow("教育费") = round2(e.DataRow("应交税额") * 0.03 , 2)
        e.DataRow("地方教育费") = round2(e.DataRow("应交税额") * 0.02 , 2)
End Select

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106597 积分:542156 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/4 14:10:00 [显示全部帖子]

ctrl+d被系统收买了,用不了,只能改为其它的快捷键

 回到顶部