| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]请问下想追加一个条件该怎么写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172946) |
| -- 作者：忆似水流年 -- 发布时间：2021/11/8 17:28:00 -- [求助]请问下想追加一个条件该怎么写 想追加一个条件 房屋状态不等于完成 应该怎么修改呢 先谢谢啦 Dim rw As winform.Topicbar = e.Form.controls("任务栏")
Dim ht As winform.Topiclink = rw.pages("提醒").links("合同") ht.text = "90天内租赁合同到期商铺物业共" & DataTables("cmstsh_wy").compute("count(自增)","租赁结束时间 <= #" & Date.Today.adddays(90) &"# ") & " 处(点击查看明细)" Dim ht2 As winform.Topiclink = rw.pages("提醒").links("生产物业合同") ht2.text = "90天内租赁合同到期生产物业共" & DataTables("cmstsh_wy_sc").compute("count(自增)","租赁结束时间 <= #" & Date.Today.adddays(90) &"# ") & " 处(点击查看明细)" e.Form.controls("自启动").checked = getconfigvalue("自启动",False) |
| -- 作者：有点蓝 -- 发布时间：2021/11/8 17:33:00 -- ht.text = "90天内租赁合同到期商铺物业共" & DataTables("cmstsh_wy").compute("count(自增)","租赁结束时间 <= #" & Date.Today.adddays(90) &"# and (房屋状态<> \'完成\' or 房屋状态 is null) ") & " 处(点击查看明细)" |