Foxtable(狐表) → 用户栏目 → 专家坐堂 → 什么鬼，下面的代码在全局表事件中，菜单不能切换


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

主题：什么鬼，下面的代码在全局表事件中，菜单不能切换
帅哥哟，离线，有人找我吗？
hbhb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5065 积分：13122 威望：0 精华：0 注册：2014/5/15 21:34:00 		什么鬼，下面的代码在全局表事件中，菜单不能切换  发帖心情 Post By：2015/11/10 21:26:00 [显示全部帖子]

大师：什么代码耗时？
If e.Table.DataTable.Name.Contains("附注表")  Then
    Dim r As Row   '---项目行---
    If Vars("fzToTal").count > 0 Then
        Dim d As Double                                     '-----格式数据---
        If Double.TryParse(e.text.replace(",",""), d) Then
            e.text = format(d, "n")
        End If
        Dim sum(Vars("fzToTal").count - 1) As object   '---合计数组
        Dim sum2(Vars("fzToTal").count - 1) As object   '----财务报表数组
        e.Table.DataTable.AddUserStyle("abc",Color.LightBLue,Color.blue)
        If e.Row(e.Table.Cols(0).name) = "合计" Then
            e.Style = "abc"
            For n As Integer = 0 To e.Row.Index -1
                r = e.Table.Rows(n)
                If r(e.Table.Cols(0).name) <> "合计" Then
                    
                    For i As Integer = 1 To sum.length - 1
                        Dim  d1 As Double
                        'If r.IsNull(Vars("fzToTal")(i)) = False  Then

                        If str(r(Vars("fzToTal")(i))).contains("%") = False  Then
                            If Double.TryParse(r(Vars("fzToTal")(i)),d1) Then
                                sum(i) += val(d1)
                                If Format(val(sum(i)),"n") <> 0 And Format(val(sum(i)),"n") <> "0" And Format(val(sum(i)),"n") IsNot Nothing  Then
                                    e.Row(Vars("fzToTal")(i)) = Format(val(sum(i)),"n")
                                Else
                                    e.Row(Vars("fzToTal")(i)) = Nothing
                                End If
                             Else   '
                              e.Row(Vars("fzToTal")(i)) = Format(val(sum(i)),"n")  
                            End If
                        Else
                            If Double.TryParse(r(Vars("fzToTal")(i)).replace("%",""),d1) Then
                                sum(i) += val(d1)/100
                                If Format(val(sum(i)),"n") <> 0 And Format(val(sum(i)),"n") <> "0" And Format(val(sum(i)),"n") IsNot Nothing  Then
                                    
                                    e.Row(Vars("fzToTal")(i)) = Format(sum(i),"Percent")
                                Else
                                    e.Row(Vars("fzToTal")(i)) = Nothing
                                End If
                             Else
                              e.Row(Vars("fzToTal")(i)) = Format(sum(i),"Percent")
                            End If
                            
                        End If

                     'End If
                    Next
                    
                End If
            Next
            
            
        End If
        If e.Row(e.Table.Cols(0).name) = "差异" Then
            
            Dim idx1 As Integer = e.Table.FindRow(e.Table.Cols(0).name & " = '财务报表数'")
            Dim idx2 As Integer = e.Table.FindRow(e.Table.Cols(0).name & " = '合计'")
            
            For i As Integer = 1 To sum2.length - 1
                If str(e.Table.Rows(idx2)(Vars("fzToTal")(i))).contains("%") = False  Then
                    If val(str(e.Table.Rows(idx1)(Vars("fzToTal")(i))).replace(",","")) <> 0  Then
                        If format((val(str(e.Table.Rows(idx1)(Vars("fzToTal")(i))).replace(",","")) - e.Table.Rows(idx2)(Vars("fzToTal")(i))),"n") <> 0 And format((val(str(e.Table.Rows(idx1)(Vars("fzToTal")(i))).replace(",","")) - e.Table.Rows(idx2)(Vars("fzToTal")(i))),"n") <> "0"  Then
                            e.Row(Vars("fzToTal")(i)) = format((val(str(e.Table.Rows(idx1)(Vars("fzToTal")(i))).replace(",","")) - e.Table.Rows(idx2)(Vars("fzToTal")(i))),"n")
                        Else
                            e.Row(Vars("fzToTal")(i)) = Nothing
                        End If
                    End If
                End If
            Next
            
        End If
        
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5065 积分：13122 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2015/11/10 21:44:00 [显示全部帖子]

整整三天，就是以上的鸟代码搞得我头昏脑胀，一会儿死机，一会儿不能切换菜单。一个自动计算如此简单地功能，官方就不能来个成熟的实例？什么鸟玩意？
什么统计查询？刻板、死板！进销存的木乃伊！
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5065 积分：13122 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2015/11/10 22:10:00 [显示全部帖子]

搞个什么鸟合计模式。用的多的的随意小计，合计，总计。加减运算等。你就不能告诉合计的设计是怎么搞的？
不在方便、快捷、实用的小模块上面下功夫，简直就是扯淡。
如果没有袍大师的指导，靠木乃伊的八股文帮助，能写出像样的实用的软件来？胡扯+胡闹。
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5065 积分：13122 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2015/11/10 22:31:00 [显示全部帖子]

如实例，就这么简单地要求：
1、自动计算出合计，如果输入的是%，合计自动合计为%
2、自动计算出差异
3、空及0不显示
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目42.zip

4、格式为保留小数位2位的带千位符的数字格式
5、如果是数字靠右停靠，如果不是靠左停靠
6、合计行颜色单独设置
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5065 积分：13122 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2015/11/10 23:36:00 [显示全部帖子]

放在表a的dracell事件中出错？

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


加好友 发短信
等级：狐神 帖子：5065 积分：13122 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2015/11/11 0:02:00 [显示全部帖子]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

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


加好友 发短信
等级：狐神 帖子：5065 积分：13122 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2015/11/11 9:58:00 [显示全部帖子]

谢谢！还有两个小问题
1、输入的数字，不靠右停靠
2、输入数字后，不自动转换为format("n")格式
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5065 积分：13122 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2015/11/11 10:24:00 [显示全部帖子]

谢谢！又是一个划时代的经典实例，您说有多少人用不到？

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