以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]复制  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188942)

--  作者:风声
--  发布时间:2023/11/1 12:37:00
--  [求助]复制
老师好,谢谢老师!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:复制.table


图片点击可在新窗口打开查看此主题相关图片如下:2023-11-01 12 11 42.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/11/1 13:36:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:复制.zip


--  作者:风声
--  发布时间:2023/11/2 7:45:00
--  
老师好,非常感谢!
--  作者:江南小镇
--  发布时间:2023/11/2 8:14:00
--  
老师好

图片点击可在新窗口打开查看此主题相关图片如下:2023-11-02 07 58 22.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2023/11/2 8:16:09编辑过]

--  作者:有点蓝
--  发布时间:2023/11/2 9:15:00
--  
直接调换一下列名不就行了
--  作者:江南小镇
--  发布时间:2023/11/2 12:47:00
--  
老师,燃气表的计算是倒过来的,我买1000立方在燃气表上显示1000立方每天用掉的是减法。

            
下面是电和水的计算方式
dr("消耗_数量") = dr("读数水电_本期")- dr("读数水电_上期")

燃气的计算方式
dr("消耗燃气_数量") = dr("读数燃气_上期")- dr("读数燃气_本期")

--  作者:有点蓝
--  发布时间:2023/11/2 13:31:00
--  
就是调换一下列名啊,判断一个项目如果是燃气就倒过来减,否则就正着减
--  作者:江南小镇
--  发布时间:2023/11/2 13:44:00
--  
老师,搞不好啊,谢谢老师。
[此贴子已经被作者于2023/11/2 13:46:56编辑过]

--  作者:有点蓝
--  发布时间:2023/11/2 14:00:00
--  
请上传实例说明
--  作者:江南小镇
--  发布时间:2023/11/2 14:43:00
--  
老师好,

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:复制.table




Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "本期", "上期"
        If dr1.IsNull("上期") OrElse dr1.IsNull("本期") Then \'如果数量或单价为空
            dr1("消耗") = Nothing
            
        Else
            dr1("消耗") = dr1("本期") - dr1("上期")    ‘自来水、电的计算

            dr1("消耗") = dr1("上期") - dr1("本期")    ‘燃气的计算

        End If
End Select