以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  自动计算按钮  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=38906)

--  作者:菜鸟学习中
--  发布时间:2013/8/10 14:18:00
--  自动计算按钮
求助  我想把自动计算按钮放在配置栏里边,那代码如何写?  代码放到什么地方?
图片点击可在新窗口打开查看此主题相关图片如下:自动计算.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2013/8/10 14:27:00
--  
使用系统菜单模板,然后参考着做即可.
--  作者:Bin
--  发布时间:2013/8/10 14:29:00
--  
想自己做也可以参考这里 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=37746&skin=0
--  作者:菜鸟学习中
--  发布时间:2013/8/10 14:44:00
--  好 了
已解决  顺便问一下 Select Case e.DataCol.Name
    Case "开支明细"
        If e.DataRow("开支明细") = Nothing Then
            e.DataRow("金额") = Nothing
        Else
            Dim t As String = e.DataRow("开支明细")
            Dim ts() As String = t.Split(",")
            Dim sum As Double = 0
            For ti As Integer = 0 To ts.Length - 1
                Dim a As String = ts(ti)
                Dim s As String = ""
                Dim b As String
                For i As Integer =1 To len(a)
                    b = mid(a,i,1)
                    If b>="0" And b<="9" Then
                        s=s & b
                    End If
                Next
                sum += CDbl(s)
            Next
            e.DataRow("金额") =sum
        End If
End Select                      这个金额列如何让他变成负值

--  作者:Bin
--  发布时间:2013/8/10 14:46:00
--  
图片点击可在新窗口打开查看   e.DataRow("金额") =sum-sum*2
--  作者:菜鸟学习中
--  发布时间:2013/8/10 15:00:00
--  求助
按照你说的那样,新增的数据是负值,但以前录入的数据如何自动变成负值呢?
图片点击可在新窗口打开查看此主题相关图片如下:负值.png
图片点击可在新窗口打开查看


--  作者:Bin
--  发布时间:2013/8/10 15:02:00
--  
点击重置列即可


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130810150142.png
图片点击可在新窗口打开查看


--  作者:菜鸟学习中
--  发布时间:2013/8/10 15:03:00
--  
谢谢