Foxtable(狐表)用户栏目专家坐堂 → 程序自动退出


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

主题:程序自动退出

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


加好友 发短信
等级:狐神 帖子:6886 积分:43605 威望:0 精华:0 注册:2009/3/2 14:07:00
程序自动退出  发帖心情 Post By:2022/6/23 8:18:00 [只看该作者]

“合同明细”表,把第二行的截止日期改为2021-7-3,程序自动退出
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:物业管理.foxdb


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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 8:58:00 [只看该作者]

死循环了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:物业管理.zip



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


加好友 发短信
等级:狐神 帖子:6886 积分:43605 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2022/6/23 9:07:00 [只看该作者]

请帖出原码,我的狗到期了。

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 9:08:00 [只看该作者]

购买升级服务

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 9:14:00 [只看该作者]


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

[此贴子已经被作者于2022/6/23 9:14:10编辑过]

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


加好友 发短信
等级:狐神 帖子:6886 积分:43605 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2022/6/23 9:20:00 [只看该作者]

如何解决这个?

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 9:22:00 [只看该作者]

赋值的时候屏蔽事件

SystemReady = False
给单元格赋值的代码
SystemReady = 
True

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 10:42:00 [只看该作者]

If e.DataRow("标的类型")="物业"
    Select e.DataCol.name
        Case "单价", "开始日期", "截止日期", "数量"
            SystemReady = False
            e.DataRow("金额")= round2(e.DataRow("数量")*e.DataRow("单价")/365*((e.DataRow("截止日期")-e.DataRow("开始日期")).Totaldays+1),2)
            SystemReady=true
        Case "金额"
            SystemReady = False
            e.DataRow("单价")= e.DataRow("金额")/e.DataRow("数量")/365*((e.DataRow("截止日期")-e.DataRow("开始日期")).Totaldays+1)
            SystemReady = True
    End Select
End If

 回到顶部