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

如果是模式窗口的话就换种方式吧。
模式窗口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