共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：请教老师代码，先开窗口再执行代码怎么不行？
1楼
菜鸟foxtable 发表于：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
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
2楼
czy 发表于：2009/12/28 21:35:00你是从主窗口中打开入院登记窗口？
3楼
菜鸟foxtable 发表于：2009/12/28 21:36:00对头
4楼
czy 发表于：2009/12/28 21:47:00测试可以执行。
5楼
czy 发表于：2009/12/28 21:49:00入院登记是模式窗口吗？
我这里如果是模式窗口则不行。
我这里如果是模式窗口则不行。
6楼
菜鸟foxtable 发表于：2009/12/28 22:09:00
正是模式窗口。。
7楼
czy 发表于：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
8楼
菜鸟foxtable 发表于：2009/12/29 19:53:00
我知道这方法，但是因为入院登记同时也是新增记录的窗口，想偷懒而已。
共8 条记录, 每页显示 10 条, 页签:
[1]