Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动计算按钮


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

主题：自动计算按钮
帅哥哟，离线，有人找我吗？
菜鸟学习中
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：56 积分：443 威望：0 精华：0 注册：2013/7/30 22:05:00 		自动计算按钮  发帖心情 Post By：2013/8/10 14:18:00 [显示全部帖子]

求助  我想把自动计算按钮放在配置栏里边，那代码如何写？  代码放到什么地方？
图片点击可在新窗口打开查看此主题相关图片如下：自动计算.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
菜鸟学习中
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：56 积分：443 威望：0 精华：0 注册：2013/7/30 22:05:00 		好 了  发帖心情 Post By：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                      这个金额列如何让他变成负值
 回到顶部
帅哥哟，离线，有人找我吗？
菜鸟学习中
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：56 积分：443 威望：0 精华：0 注册：2013/7/30 22:05:00 		求助  发帖心情 Post By：2013/8/10 15:00:00 [显示全部帖子]

按照你说的那样，新增的数据是负值，但以前录入的数据如何自动变成负值呢？
图片点击可在新窗口打开查看此主题相关图片如下：负值.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
菜鸟学习中
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：56 积分：443 威望：0 精华：0 注册：2013/7/30 22:05:00 		  发帖心情 Post By：2013/8/10 15:03:00 [显示全部帖子]

谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询