主题：动态加载外部数据，小小疑问请求帮助。。。

一个文件有两个外部数据表，表A是录入表，B表是基本资料表（比如一些产口型号啊，名称啊，计量单位啊，单价啊，供应商啊。负责人啊）
现在录入方法是这样的，打开文件同时加载两个表，在A表中，用窗口绑定B表。查找B表中的数据，找出来后勾选住，然后单击复制按钮，复制到A表中。
如果用动态加载数据的办法，当在目录窗口，点击某一节点后，才加载某一数据。那么我在A表中，用窗口查找B表数据的办法，那不是查找不到？（根本没有加载B表的数据）能不能这样呢，我在窗口中输入查找条件，然后B表加载附合条件的行，（通过某列或两列判断是否符合条件）.,如果可以，那么在窗口中进行查找时，会不会很缓慢，会不会影响输入速度？（在A表中每输入一条记录时，就要在B表中查找一下基本资料）

动态加载数据能不能这样理解，当我单击A节点时，加载A节点数据，当又单击B节点数据时，加载B节点的数据，那么之前的A节点的数据是不是已经不在表中了，还是隐藏起来了？？

用窗口绑定某表，在输入查找条件，加载符合条件的数据？，会不会影响加载数据？
或者能不能做个例子。。。

我现在为文件打开缓慢而头痛
生产部在车间，他们的电脑离服务器有150多米的距离。
打开网站比我们都要慢上一拍。
更别说打开数据文件了，
所有的数据库都在服务器上，由于太多的数据库需要加载，所以打开的时候很慢很慢，有时候还会因为网络太忙，，导致连接数据库失败之类的问题。。（acc数据库）
刚开始有6个数据库，现在我已经减到了3个数据库，还是很慢
三个数据库中，有一个基本资料库非常的大。3W多行。一个记录表也会慢慢变大。因为他们每天都在输入数据，每天大概有500条记录输入进去。
所以很头痛。。。。

这两天一直在研究动态加载。。
在输入记录数据时，需要基本资料表，要提取那里面的一些基本资料。然后在输入数量之类的东西

怎么样能让它打开又快，输入数量时也不要有太大影响。。。

找网络专家想过办法。
就算内部网络设置为光纤也没有用，集线器也是一个关。，还有成本。还有办公室内部布景规化都已经做好了。。
也不可能把整个生产部办公室搬到这边来。。

各位能不能帮我想想高招。。。。
好头痛。。。。

我咨询过，本来打算对生产部的局域网连接用光纤，可电脑维修的人说，光纤也起不了太大的作用，因为距离太远（生产部这的集线器与服务器），足足有150M。。

你讲的资料表用内部表，那更不可以了，因为资料表是BOM表，工程师会更改，会增加新的资料。最主要的就是资料表的数据分享。

录入的数据也不能用内部表，因为要把录入的数据加载到另一个文件中，进行处理和查看。

杨姐说。的只加载当天数据倒是可以，（现在就是这样做的）
但资料表也要全部加载吧，
真的很郁闷，我今天用生产部5台电脑试过，分同时打开，或会别一个一个打开，同时打开文件加载数据时，要20多分钟才见动静（连接某个数据库失败）
当一个一个打开时，部分电脑可以打开，部分电脑还是会有个把个数据库失败。。

现在是用窗口，绑定资料表，将资料表中的一些需要信息复制到录入表中,再在录入表中输入日期，数据之类的信息。。

改变打开时加载方法，改变复制资料表时的方法。。。不知道有什么办法。。。

真不知道怎么样办了。
说实在的，打开和保存时都很慢，更害怕加载数据库失败。。。
想不出办法了。。。。。。。
大家帮忙想想
有经验的分享下，，急待解决。。

杨姐。
不能分，因为所有产品的制造工艺步骤都有一个不同的物料编码。为了查证物料编码会不会重复（同一个零件，使用的同一个材料，所加工的同一个工序，编码可以一样）所以资料表所以资料就要放在一起。对物料编码进行审核。。。
在编辑资料表时，有进可能编辑错误，而领导要求，错误的行也不能删除，只要看不见就好。。

能不能在文件加载个部表时，增加条件，只加载符合条件的行，，
这样对加载和保存数据，有没有提高。。。。

文件不在服务器上
在自已电脑上

所以我也在怀疑，内部网不可能慢过宽带啊

打开正规网站，也不慢。像163最多12秒的问题。

想先解决了这个问题，在慢慢改数据库
我现在所有的文件都有ACC的
如果现在改工作量太大了
好多个文件

莫非和数据库的格式有太大的联系？

加载行是，用条件判断 ，
我是将条件写在项目事件中的。BeforeLoadOuterTable

If e.DataTableName = "车间加工记录"
    Select Case e.User.Group
        Case "数据输入组"
            e.SelectString = "Select All * From {车间加工记录} Where 车间 = '" & e.User.Name & "'and  不在显示=False"
        Case "开发组","管理组"
            e.SelectString = "Select All * From {车间加工记录}"
    End Select
End If

If e.DataTableName = "设备清单"
    Select Case e.User.Group
        Case "数据输入组","开发组","管理组"
            e.SelectString = "Select All * From {设备清单}"
    End Select
End If

If e.DataTableName = "物料编码"
    Select Case e.User.Group
        Case "数据输入组"
            e.SelectString = "Select All [_Locked],[客户],[级别],[物料编码是否有用],[物料成品型号],[物料型号],[物料名称],[加工工艺],[类别],[单位],[首选负责车间],[系数],[图号],[版本号],[规格尺寸],[原材料规格型号],[开料尺寸],[备注],[生产周期],[产能],[物料编码],[_Identify],[价格],[负责部门] From {物料编码} where 物料编码是否有用 = False"
        Case "开发组","管理组"
            e.SelectString = "Select All [_Locked],[客户],[级别],[物料编码是否有用],[物料成品型号],[物料型号],[物料名称],[加工工艺],[类别],[单位],[首选负责车间],[系数],[图号],[版本号],[规格尺寸],[原材料规格型号],[开料尺寸],[备注],[生产周期],[产出],[物料编码],[_Identify] From {物料编码}"
    End Select
End If

If e.DataTableName = "公司员工资料"
    Select Case e.User.Group
        Case "数据输入组"
            e.SelectString = "Select All [_Locked],[员工编号],[所属部门],[职务],[姓名],[性别],[联系电话],[住宿情况],[房间号],[入职时间],[就职情况],[备注],[_Identify] From {公司员工资料} where 就职情况 = True and  职务= '" & e.User.Name & "'"
        Case "开发组","管理组"
            e.SelectString = "Select All [_Locked],[员工编号],[所属部门],[职务],[姓名],[性别],[联系电话],[住宿情况],[房间号],[入职时间],[就职情况],[备注],[_Identify] From {公司员工资料} where 就职情况 = True"
    End Select
End If

如果我把所有代码写成这样，有没有可能快一点。（突然想到的），我不懂这些计算机语言

If e.DataTableName = "车间加工记录"
    Select Case e.User.Group
        Case "数据输入组"
            e.SelectString = "Select All * From {车间加工记录} Where 车间 = '" & e.User.Name & "'and  不在显示=False"
         End Select
End If

If e.DataTableName = "设备清单"
    Select Case e.User.Group
        Case "数据输入组","开发组","管理组"
            e.SelectString = "Select All * From {设备清单}"
    End Select
End If

If e.DataTableName = "物料编码"
    Select Case e.User.Group
        Case "数据输入组"
            e.SelectString = "Select All [_Locked],[客户],[级别],[物料编码是否有用],[物料成品型号],[物料型号],[物料名称],[加工工艺],[类别],[单位],[首选负责车间],[系数],[图号],[版本号],[规格尺寸],[原材料规格型号],[开料尺寸],[备注],[生产周期],[产能],[物料编码],[_Identify],[价格],[负责部门] From {物料编码} where 物料编码是否有用 = False"
         End Select
End If

If e.DataTableName = "公司员工资料"
    Select Case e.User.Group
        Case "数据输入组"
            e.SelectString = "Select All [_Locked],[员工编号],[所属部门],[职务],[姓名],[性别],[联系电话],[住宿情况],[房间号],[入职时间],[就职情况],[备注],[_Identify] From {公司员工资料} where 就职情况 = True and  职务= '" & e.User.Name & "'"
        End Select
End If

正在学呢

今天用测试了一天
效果正常
加载也很快
同时用5台电脑同时打开文件进行加载，第一台完成时间用了5分钟，最后一台完成时间用了8分钟（电脑配置有高有低）
用单个电脑单独打开时，只用了2分钟

为什么有时加载快，有时加载慢呢
是不是有时宽带使用率高，所以也影响到了内部网络的数据流通。。。

我这儿网线有多长呢
丛路由器到生产部集线器有150到160M。。丛集线器到电脑有10M--20M不等。。。。
很郁闷。
不知道内部网线换掉
由光纤组建内部网，会不会飞常快。。。。。。