主题：请教老师代码，先开窗口再执行代码怎么不行？

窗口Table的双击单元事件代码为何不能执行？

Forms("入院登记").Open()
Dim Multi As String = "住院号|姓名|医疗保险号|出生日期|年龄|合作医疗证号|性别|婚姻状况|身份证号|民族|职业|联系人|联系人关系|省|市县|联系人电话|地址|联系人地址|邮政编码|在职状态|工作单位|科室编码|支付类型|门诊医生编码|入院时病情|入院时间|入院诊断"
Dim Values() as String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
    Forms("入院登记").Controls(Values(Index)).Value = Tables("主窗口_Table4").Current(Values(Index))
Next

你是从主窗口中打开入院登记窗口？

对头

测试可以执行。

入院登记是模式窗口吗？
我这里如果是模式窗口则不行。

正是模式窗口。。

如果是模式窗口的话就换种方式吧。
模式窗口AfterLoad事件代码：

if Forms("主窗口").Opened Then
    Dim Multi As String = "住院号|姓名|医疗保险号|出生日期|年龄|合作医疗证号|性别|婚姻状况|身份证号|民族|职业|联系人|联系人关系|省|市县|联系人电话|地址|联系人地址|邮政编码|在职状态|工作单位|科室编码|支付类型|门诊医生编码|入院时病情|入院时间|入院诊断"
    Dim Values() as String
    Values = Multi.split("|")
    For Index As Integer = 0 To Values.Length - 1
        Forms("入院登记").Controls(Values(Index)).Value = Tables("主窗口_Table4").Current(Values(Index))
    Next
End If

我知道这方法，但是因为入院登记同时也是新增记录的窗口，想偷懒而已。