Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]计算


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

主题：[求助]计算
帅哥哟，离线，有人找我吗？
江南小镇
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		[求助]计算  发帖心情 Post By：2018/1/28 19:50:00 [显示全部帖子]

老师好

 


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


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/1/29 10:24:00 [显示全部帖子]

老师，我想通过已知的金额、单价计算出数量列的数据。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:计算.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/1/29 11:28:00 [显示全部帖子]

谢谢老师

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


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/1/29 22:45:00 [显示全部帖子]

老师好

      我想在原来已知的计算代码中继续添加自动互算代码。即输入税率能计
算出金额和税金的值。输入金额能计算出税率和税金、输入税金能计算出税率和
金额。

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:计算.table
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/1/29 23:05:00 [显示全部帖子]

谢谢老师，好的。

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


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/1/30 10:39:00 [显示全部帖子]

以下是引用江南小镇在2018/1/29 22:45:00的发言：

老师好

      我想在原来已知的计算代码中继续添加自动互算代码。即输入税率能计
算出金额和税金的值。输入金额能计算出税率和税金、输入税金能计算出税率和
金额。

 

 

 下载信息  [文件大小：364.0 KB  下载次数：1]
图片点击可在新窗口打开查看点击浏览该文件:计算.table


老师，我搞了好长时间搞不好。还是恳请老师帮忙。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/1/30 12:54:00 [显示全部帖子]

老师，上面代码，我在"税率"列中输入数据金额列没有数据。
[此贴子已经被作者于2018/1/30 13:09:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/1/30 20:50:00 [显示全部帖子]

老师，税率、金额 、税金是根据价税合计列得出的数值。



图片点击可在新窗口打开查看此主题相关图片如下：图像 1.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/1/30 20:59:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
江南小镇
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/1/30 22:19:00 [显示全部帖子]

谢谢老师，太感谢了。

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


加好友 发短信
等级：七尾狐 帖子：1765 积分：11811 威望：0 精华：0 注册：2015/6/22 8:11:00 		  发帖心情 Post By：2018/1/30 22:44:00 [显示全部帖子]

老师，通过下面代码计算后再修改出库_数量、出库_售价列后出库_税率列的值会错误的自动修改。
Select Case e.DataCol.Name
    Case "出库_数量"
        SystemReady = False
        If e.DataRow.isnull("出库_数量") = False Then
            If e.DataRow.IsNull("出库_价税合计") Then
                e.DataRow("出库_价税合计") = e.DataRow("出库_价税合计") * e.DataRow("出库_数量") 
            ElseIf e.DataRow.isnull("出库_售价") Then
                e.DataRow("出库_售价") = e.DataRow("出库_价税合计") / e.DataRow("出库_数量")
            Else
                e.DataRow("出库_价税合计") = e.DataRow("出库_售价") * e.DataRow("出库_数量") 
                
            End If
        End If
        SystemReady = True
    Case "出库_售价"
        SystemReady = False
        If e.DataRow.isnull("出库_售价") = False Then
            If e.DataRow.IsNull("出库_价税合计") Then
                e.DataRow("出库_价税合计") = e.DataRow("出库_售价") * e.DataRow("出库_数量") 
            ElseIf e.DataRow.isnull("出库_数量") Then
                e.DataRow("出库_数量") = e.DataRow("出库_价税合计") / e.DataRow("出库_售价") 
            Else
                e.DataRow("出库_价税合计") = e.DataRow("出库_售价") * e.DataRow("出库_数量") 
            End If
        End If
        SystemReady = True
    Case "出库_价税合计"
        SystemReady = False
        If e.DataRow.isnull("出库_价税合计") = False Then
            If e.DataRow.IsNull("出库_售价") Then
                If e.DataRow.IsNull("出库_数量") = False Then
                    e.DataRow("出库_售价") = e.DataRow("出库_价税合计") / e.DataRow("出库_数量")
                End If
            ElseIf e.DataRow.isnull("出库_数量") Then
                If e.DataRow.IsNull("出库_售价") = False Then
                    e.DataRow("出库_数量") = e.DataRow("出库_价税合计") / e.DataRow("出库_售价") 
                End If
            Else
                If e.DataRow.IsNull("出库_数量") = False Then
                    e.DataRow("出库_售价") = e.DataRow("出库_价税合计") / e.DataRow("出库_数量")
                End If
            End If
        End If
        SystemReady = True
End Select
'--------------------------------------------------------------------------------------
Select Case e.DataCol.Name
    Case "出库_税率"
        SystemReady = False
        If e.DataRow("出库_税率") > 0 Then
            e.DataRow("出库_金额") = e.DataRow("出库_价税合计") / e.DataRow("出库_税率")
            e.DataRow("出库_税金") = e.DataRow("出库_价税合计") - e.DataRow("出库_金额")
        End If
        SystemReady = True
    Case "出库_税金"
        SystemReady = False
        If e.DataRow.isnull("出库_税金") = False Then
            e.DataRow("出库_金额") = e.DataRow("出库_价税合计") - e.DataRow("出库_税金")
            If e.DataRow("出库_金额") > 0 Then
                e.DataRow("出库_税率") = e.DataRow("出库_价税合计") / e.DataRow("出库_金额")
            End If
        End If
        SystemReady = True
    Case "出库_金额"
        SystemReady = False
        If e.DataRow.isnull("出库_金额") = False Then
            e.DataRow("出库_税金") = e.DataRow("出库_价税合计") - e.DataRow("出库_金额")
            If e.DataRow("出库_金额") > 0 Then
                e.DataRow("出库_税率") = e.DataRow("出库_价税合计") / e.DataRow("出库_金额")
            End If
        End If
        SystemReady = True
End Select
 回到顶部
总数 15 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.06250 秒, 7 次数据查询