以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 倒计时 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174155) |
-- 作者:aaa1234 -- 发布时间:2022/1/4 16:45:00 -- 倒计时 Dim dr1 As Row = Tables("Table_3").Current If dr1 Is Nothing Then Return If dr1("物流状态")="已寄出" Or dr1("物流状态")="未寄出" Dim d As Date = cdate(dr1("记录日期")).adddays(val(e.Form.Controls("TextBox33").text)) Dim dt As Date = format(d,"yyyy-MM-dd 23:59:59") Dim t As TimeSpan = dt - Date.now \'计算现在离今天的24时整还差多少时间 e.Form.Controls("Label51").Text = "物流时间剩余" & t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒" Dim Lbl As WinForm.Label = e.Form.Controls("Label51") If Lbl.ForeColor = Color.Red Then Lbl.ForeColor = Color.Black Else Lbl.ForeColor = Color.Red End If Else e.Form.Controls("Label51").text ="" End If
|
-- 作者:aaa1234 -- 发布时间:2022/1/4 16:47:00 -- 老师怎么判断物流状态为已寄出 未寄出 异常的物流物流进展为跟进中才触发倒计时 |
-- 作者:有点蓝 -- 发布时间:2022/1/4 16:59:00 -- 就是上面的判断方法 |
-- 作者:aaa1234 -- 发布时间:2022/1/4 17:04:00 -- 不是我说物流状态:已寄出 未寄出 异常 物流进度为跟进中才触发怎么写 就是物流状态为已寄出 进度为跟进中 触发 就是物流状态为未寄出 进度为跟进中 触发 就是物流状态为异常 进度为跟进中 触发 其他不触发
|
-- 作者:有点蓝 -- 发布时间:2022/1/4 17:13:00 -- 计时器默认设置为关闭,到表格currentchanged事件判断,启动计时器参考: Forms("窗口1").TimerEnabled= True \'启动 Forms("窗口1").TimerEnabled= False ‘ 关闭
|
-- 作者:aaa1234 -- 发布时间:2022/1/4 17:23:00 -- 我就是不知道判断那里应该怎么写呀老师 是不是If dr1("物流状态")="已寄出" Or dr1("物流状态")="未寄出" or dr1("物流状态")="异常" AndAlso dr1("进度")="跟进中"
|
-- 作者:有点蓝 -- 发布时间:2022/1/4 17:29:00 -- If (dr1("物流状态")="已寄出" Or dr1("物流状态")="未寄出" or dr1("物流状态")="异常") AndAlso dr1("进度")="跟进中" 或者 If dr1("进度")="跟进中" then If dr1("物流状态")="已寄出" Or dr1("物流状态")="未寄出" or dr1("物流状态")="异常" then |
-- 作者:aaa1234 -- 发布时间:2022/1/4 17:33:00 -- 谢谢您老师 |
-- 作者:aaa1234 -- 发布时间:2022/1/5 8:55:00 -- 老师我想问一下我想输入到某个文本框的时候填入 e.Form.Controls("ComboBox4").text ="未寄出" e.Form.Controls("TextBox34").text ="未寄出" 但是效果是我点击输入完,点其他文本框就消失了 |
-- 作者:aaa1234 -- 发布时间:2022/1/5 8:56:00 -- ValueChanged 事件的 |