以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  当前时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111697)
--  作者：cd_tdh
--  发布时间：2017/12/27 21:35:00
--  
直接写在afterload不行吗？
--  作者：有点甜
--  发布时间：2017/12/27 22:40:00
--  

AfterLoad事件写代码

 

e.form.controls("开始日期").Text = Date.now

e.form.controls("开始日期").WriteValue
--  作者：有点甜
--  发布时间：2017/12/27 23:03:00
--  
以下是引用nuoyan88在2017/12/27 22:55:00的发言：

老师，以下这句有问题（提示未引用到实例），谢谢

 

e.form.controls("开始日期").WriteValue

 

新增一行以后，在执行代码。写到afterLoad事件的最后去。
--  作者：有点甜
--  发布时间：2017/12/28 8:48:00
--  
4楼代码写到addnew的后面啊 DataTables("工序记录表_工序跟踪表").addnew
--  作者：有点甜
--  发布时间：2017/12/28 10:28:00
--  

上传实例测试。
--  作者：客人
--  发布时间：2017/12/28 10:48:00
--  
老师，文件4M，发不出来
--  作者：有点甜
--  发布时间：2017/12/28 10:49:00
--  

备份项目、删除部分数据、压缩发上来。

 

 
--  作者：有点甜
--  发布时间：2017/12/28 11:34:00
--  

DataTables("工序记录表_工序跟踪表").DataRows.Clear
DataTables("工序记录表_工序跟踪表").addnew
DataTables("工序记录表_工序跟踪表").AutoAddNew = True
Tables("工序记录表_工序跟踪表").current("开始日期") = Date.now
Dim cmb As WinForm.ComboBox = e.form.Controls("不良类型1")
cmb.ComboList = DataTables("异常类型").GetComboListString("不良类型")

If e.Form.Width> 0 AndAlso e.Form.height > 0 Then
    vars("width") = e.Form.width
    vars("height") = e.Form.height
End If