Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]出错了


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

主题：[求助]出错了
帅哥哟，离线，有人找我吗？
djyjcl
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：220 积分：2004 威望：0 精华：0 注册：2011/3/4 19:40:00 		[求助]出错了  发帖心情 Post By：2013/10/17 16:10:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：出错了.jpg
图片点击可在新窗口打开查看
求助各位老大，帮忙看，如何必错了？
[此贴子已经被作者于2013-10-17 16:10:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
djyjcl
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：220 积分：2004 威望：0 精华：0 注册：2011/3/4 19:40:00 		  发帖心情 Post By：2013/10/17 17:16:00 [显示全部帖子]

项目太大，又有数据，不便上传，给邮箱

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


加好友 发短信
等级：童狐 帖子：220 积分：2004 威望：0 精华：0 注册：2011/3/4 19:40:00 		  发帖心情 Post By：2013/10/17 17:22:00 [显示全部帖子]

狐狸爸爸：数据不方便公布，把你的邮箱给我。不好意思，添麻烦了。

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


加好友 发短信
等级：童狐 帖子：220 积分：2004 威望：0 精华：0 注册：2011/3/4 19:40:00 		  发帖心情 Post By：2013/10/17 17:23:00 [显示全部帖子]

发到QQ：800014337可以吗？

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


加好友 发短信
等级：童狐 帖子：220 积分：2004 威望：0 精华：0 注册：2011/3/4 19:40:00 		  发帖心情 Post By：2013/10/17 17:27:00 [显示全部帖子]

目前项目已有56个表，我不知道哪个表出错了，也不知道哪些代码出问题了，不知道发哪些代码？
[此贴子已经被作者于2013-10-17 17:27:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
djyjcl
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：220 积分：2004 威望：0 精华：0 注册：2011/3/4 19:40:00 		  发帖心情 Post By：2013/10/17 18:07:00 [显示全部帖子]

正在联系，谢谢狐狸爸爸！

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


加好友 发短信
等级：童狐 帖子：220 积分：2004 威望：0 精华：0 注册：2011/3/4 19:40:00 		  发帖心情 Post By：2013/10/17 19:02:00 [显示全部帖子]

将全局代码设为注释代码后，正常，重新恢复代码后也正常，不知是啥原因？
全局代码如下：
Public Function InTax2(ByVal x As Double) As Double
        Dim y As Double
        If x > 80000 Then
            y = x * 0.45 - 13505
        ElseIf x > 55000 Then
            y = x * 0.35 - 5505
        ElseIf x > 35000 Then
            y = x * 0.3 - 2755
        ElseIf x > 9000 Then
            y = x * 0.25 - 1005
        ElseIf x > 4500 Then
            y = x * 0.2 - 555
        ElseIf x > 1500 Then
            y = x * 0.1 - 105
        ElseIf x > 0 Then
            y = x * 0.03
        ElseIf x <= 0 Then
            y = 0
        End If
        Return Math.Round(y, 2)
    End Function
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询