主题：[狐爸请注意下]窗口时间控件问题BUG？(附动画)

楼主看看这个怎么样？应该满足你的需要。窗口控件完全不绑定。而数据表又是锁定的。麻烦的是要双击打开，且改一个要确定一次。当然可以设置[上一条]和[下一条]按钮代码，这个先卖个关子。


此主题相关图片如下：0001.gif



设置表为锁定，DoubleClick事件中设置打开编辑窗口代码：Forms("修改").Open()

在修改窗口AfterLoad事件中写入如下代码：（前提是你的窗口录入控件名称与表列名对应）

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

至于确定键代码不用我说了吧？

您可以变通一下嘛，把窗口控件绑定取消，在CurrentChanged或者PositionChanged事件中加入如下类似代码就能解决问题。
Dim Multi As String = "住院号|姓名|医疗保险号|出生日期|年龄|合作医疗证号|性别|婚姻状况|身份证号|民族|职业|联系人|联系人关系|省|市县|联系人电话|地址|联系人地址|邮政编码|在职状态|工作单位|科室编码|支付类型|门诊医生编码|入院时病情|入院时间|入院诊断"
Dim Values() as String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
    e.Form.Controls(Values(Index)).Value = Tables("主窗口_Table4").Current(Values(Index))
Next
您看看下面这个示例能不能满足要求？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table