以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  程序自动退出  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178199)

--  作者：lihe60 --  发布时间：2022/6/23 8:18:00 --  程序自动退出 “合同明细”表，把第二行的截止日期改为2021-7-3，程序自动退出  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:物业管理.foxdb

--  作者：有点蓝 --  发布时间：2022/6/23 8:58:00 --   死循环了  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:物业管理.zip

--  作者：lihe60 --  发布时间：2022/6/23 9:07:00 --   请帖出原码，我的狗到期了。

--  作者：有点蓝 --  发布时间：2022/6/23 9:08:00 --   购买升级服务

--  作者：有点蓝 --  发布时间：2022/6/23 9:14:00 --   此主题相关图片如下：1.png http://www.foxtable.com/webhelp/topics/2218.htm [此贴子已经被作者于2022/6/23 9:14:10编辑过]

--  作者：lihe60 --  发布时间：2022/6/23 9:20:00 --   如何解决这个？

--  作者：有点蓝 --  发布时间：2022/6/23 9:22:00 --   赋值的时候屏蔽事件 SystemReady = False 给单元格赋值的代码 SystemReady = True

--  作者：有点蓝 --  发布时间：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