- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教老师代码，先开窗口再执行代码怎么不行？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5680)
-- 发布时间：2009/12/28 20:30:00
-- 请教老师代码，先开窗口再执行代码怎么不行？
窗口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
-- 发布时间：2009/12/28 21:35:00
--
你是从主窗口中打开入院登记窗口？
-- 发布时间：2009/12/28 21:36:00
--
对头
-- 发布时间：2009/12/28 21:47:00
--
测试可以执行。
-- 发布时间：2009/12/28 21:49:00
--
入院登记是模式窗口吗？
我这里如果是模式窗口则不行。
-- 发布时间：2009/12/28 22:09:00
--
正是模式窗口。。
-- 发布时间：2009/12/29 0:39:00
--
如果是模式窗口的话就换种方式吧。
模式窗口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
-- 发布时间：2009/12/29 19:53:00
--
我知道这方法，但是因为入院登记同时也是新增记录的窗口，想偷懒而已。