以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于时间停止的问题Date.now (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140875) |
-- 作者:有点蓝 -- 发布时间:2019/9/16 17:17:00 -- 表格添加一个审核日期列,datacolchanged事件,审核列为true的时候,给审核日期列赋值当前时间。然后什么代码改为从审核日期列取值 |
-- 作者:有点蓝 -- 发布时间:2019/9/16 19:57:00 -- 审核只更新审核的这一行的时间,更新其它行时间干嘛? Imagefile的问题贴出代码看看
|
-- 作者:有点蓝 -- 发布时间:2019/9/16 21:48:00 -- 把控件的定义放到if之外 |
-- 作者:有点蓝 -- 发布时间:2019/9/17 8:38:00 -- 更新审核时间的代码放到datacolchanged就行了,原来显示审核图章的用法不变啊 Dim lab As WinForm.Label = e.Form.Controls("审核图章") Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1") If e.Table.current("审核") =True Then pic.Imagefile = "\\\\192.168.1.106\\D\\生产管理\\审核通过.png" \'审核图片路径 lab.Text = user.name & " " & Date.now \'显示审核人和日期 e.Form.Controls("审核").text =tables("表A").current("审核人") e.Form.Controls("审核日期").text =tables("表A").current("审核日期") Else pic.Imagefile = "" lab.Text ="" e.Form.Controls("审核").text ="" e.Form.Controls("审核日期").text ="" End If |