以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何打开不同窗口同列自动输入不同内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126653)

--  作者:ZJZK2018
--  发布时间:2018/10/25 21:40:00
--  如何打开不同窗口同列自动输入不同内容
我在“资料明细”表事件DataRowAdding写入下面代码,但没有自动填入数据?

If Forms("项目信息台账").Opened Then
    If CurrentTable.Name = "项目信息.资料明细" Then
        e.DataRow("资料类型") = "前期资料"
    End If
End If

If Forms("会议纪要台账").Opened Then
    If CurrentTable.Name = "会议纪要.资料明细" Then
        e.DataRow("资料类型") = "纪要文件"
    End If
End If



--  作者:有点蓝
--  发布时间:2018/10/26 9:06:00
--  
窗口是否已经打开?

代码放到DataRowAdded

If Forms("项目信息台账").Opened Then
    e.DataRow("资料类型") = "前期资料"
elseIf Forms("会议纪要台账").Opened Then
    e.DataRow("资料类型") = "纪要文件"
End If