Foxtable(狐表)用户栏目专家坐堂 → 代码执行后无效果,但也不出错误提示


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

主题:代码执行后无效果,但也不出错误提示

帅哥哟,离线,有人找我吗?
xiaoyongxg2
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/20 16:32:00 [只看该作者]

BIN老师,我这个是要写在按钮里的,如果写在表属性里,它会除好几次的。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/9/20 16:37:00 [只看该作者]

用我的代码不会

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/22 9:33:00 [只看该作者]

我的Foxtable里至少有7张表,datacol change事件里也有内容,所以我想用按钮实现。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/22 9:41:00 [只看该作者]

以下是引用xiaoyongxg2在2014-9-22 9:33:00的发言:
我的Foxtable里至少有7张表,datacol change事件里也有内容,所以我想用按钮实现。

 

做个简单的例子发上来,代码没问题


 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/22 10:43:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:例子.rar

我想实现所有为3克的规格,购进量除以100,所有为3克*10小袋的规格,购进量除以10。应该怎么改BIN老师?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/22 10:49:00 [只看该作者]

For Each r As Row In Tables("表A").Rows
    If r("规格") = "3克" Then
        r("第四列") = r("数量") / 100
    Else If r("规格") = "3克*10粒" Then
        r("第四列") = r("数量") / 10
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/22 10:55:00 [只看该作者]

甜老师,除以后值不能在数量列中体现吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/22 11:16:00 [只看该作者]

以下是引用xiaoyongxg2在2014-9-22 10:55:00的发言:
甜老师,除以后值不能在数量列中体现吗?

 

这样容易引起你重复计算,你如果点了两次按钮,你想恢复数据都难。

 

For Each r As Row In Tables("表A").Rows
    If r("规格") = "3克" Then
        r("数量") = r("数量") / 100
    Else If r("规格") = "3克*10粒" Then
        r("数量") = r("数量") / 10
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/22 11:30:00 [只看该作者]

我明白了,谢谢您甜老师

 回到顶部
帅哥哟,离线,有人找我吗?
xiaoyongxg2
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:144 积分:1107 威望:0 精华:0 注册:2014/6/1 10:22:00
  发帖心情 Post By:2014/9/22 16:28:00 [只看该作者]

save 到底是不是tables的成员?为什么有的时候就是,有的时候就不是了。很诡异

 回到顶部
总数 21 上一页 1 2 3 下一页