- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 不同类型的Table公用一个录入窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23173)
-- 发布时间：2012/9/4 16:29:00
-- 不同类型的Table公用一个录入窗口
不同类型的Table共用一个录入窗口
假定表A和表B建立了关联，另外窗口1中插入了一个Table控件，此Table控件绑定到表B，“作为副本”属性设置为True。
这样系统中将存在三个表B:
主表： Tables("表B")
关联表： Tables("表A.表B")
窗口中： Tables("窗口1_Table1")
假定我们为表B设计了一个录入窗口，希望在上述三个Table中双击任何一行，即可打开这个录入窗口来编辑修改此行的数据。
设计步骤：
1、在全局代码中加上以下代码：
Public btName As String
2、将表B的PrepareEdit事件代码设置为：
e.Cancel = True
3、将表B的DoubleClick事件代码设置为：
btName = e.Table.Name
\'将Table名称保存在全局标量btName中
Forms("录入窗口名").Open()
4、按常规设计好这个录入窗口，各个字段如常绑定到表B的各列。
5、将窗口的AfterLoad事件代码设置为：
If btName > "" AndAlso btName <> "表B" Then
For Each c As Winform.Control In e.Form.Controls
If c.Bindingfield > "" AndAlso c.Bindingfield.StartsWith("表B.") Then
c.BindingField= c.BindingField.Replace("表B.", btName & ".")
End If
Next
End If
设计思路很简单，双击基于表B的某个Table时，将此Table的名称保存在全局变量btName中,然后在窗口的Afteload事件中修改各控件的BindingField属性，绑定到这个Table。
-- 发布时间：2012/9/4 19:04:00
--
这样好的精髓之帖，居然无人顶，晕，我来抢个沙发！
-- 发布时间：2012/9/4 20:16:00
--
大佬：写这么多不如发一个实例上来过瘾
，谢谢，试过先！
-- 发布时间：2012/9/4 21:00:00
--
我好像写过这个的!
-- 发布时间：2012/9/5 15:56:00
--
老大 这个副本表要不要加上同步的代码的,不加上好像不行哦.
-- 发布时间：2012/9/5 15:58:00
--
不用加，双击副本表，窗口的AfterLoad事件会自动将所有控件绑定到副本表中的列。
-- 发布时间：2012/9/5 16:04:00
--
好像不太好,我今日的东西和你做的例子一摸一样 但是录入窗口有两个 现在的情况一个录入窗口在关联里面输入,绑定的是关联列. 一个是在副本表里面打开,正常绑定.但是这个 不能新增,也不能输入数据.后来将副本表换成主表就可以了.奇怪,是不是冲突造成的?
-- 发布时间：2012/9/5 16:05:00
--
好东西，好思路！
我想问另外一个问题：
不同控件的事件代码，能否共用一个？
不是用内部函数或全局代码，我是指，直接引用其他控件的事件代码？
-- 发布时间：2012/9/5 16:11:00
--
好像不太好,我今日的东西和你做的例子一摸一样 但是录入窗口有两个 现在的情况一个录入窗口在关联里面输入,绑定的是关联列. 一个是在副本表里面打开,但是这个 不能新增,也不能输入数据.现在副本表换成主表就可以了.奇怪,是不是冲突造成的.
可以，你看看：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目90.table |
-- 发布时间：2012/9/5 16:12:00
--
好东西，好思路！
我想问另外一个问题：
不同控件的事件代码，能否共用一个？
不是用内部函数或全局代码，我是指，直接引用其他控件的事件代码？
不行，只有：
http://www.foxtable.com/help/topics/2309.htm