[求助]

lussee

张各位Access高手:


你们好！非常地热切盼你们帮助我解决在Access中的编写程序中遇到的问题。以下是我编写程序的过程，该程序的目的是在当前窗体中打开另一个窗体，然后再从打开的窗体的子窗体中选取某一条记录，把该条记录的信息传递到当前窗体的子窗体中，以下的程序完全可以完成上述的信息传递过程。


但遗憾的是，当从当前窗体打开另一个窗体，而又没有从打开的窗体中选取某一条记录选取到当前窗体，却不小心关闭了打开的另一个窗体时，就会同时删除当前窗体的子窗体中当前的当前记录，如是每一次不小心的操作，而导致当前窗体的子窗体中当前的当前记录的不断被删除，造成如此不正常的现象，可能是我以下所编写的程序不完善或有误点所致，但由于我个人对Access知识知之甚少，因而，无法完善或纠正错误所编写的程序。故此，特发该贴子，希望高手们能帮我完善或纠正错误所编写的程序。谢谢啦!





程序编写步骤：


(1)首先在模编写


Option Compare Database


Public ArrayStr(10) As Variant





(2)激活”工单”主窗体


Private Sub Form_Activate()


On Error GoTo Err_Form_Activate


Me![工单产品明细 子窗体]![产品编号] = ArrayStr(1)


Me![工单产品明细 子窗体]![客户] = ArrayStr(2)


Me![工单产品明细 子窗体]![产品类别] = ArrayStr(3)


Me![工单产品明细 子窗体]![产品名称] = ArrayStr(4)


Me![工单产品明细 子窗体]![产品规格] = ArrayStr(5)


ArrayStr(0) = ""


ArrayStr(1) = ""


ArrayStr(2) = ""


ArrayStr(3) = ""


ArrayStr(4) = ""


ArrayStr(5) = ""


AllNum = 0


Me![工单工序明细 子窗体]![编码] = ArrayStr(6)


Me![工单工序明细 子窗体]![工序] = ArrayStr(7)


Me![工单工序明细 子窗体]![项目] = ArrayStr(8)


Me![工单工序明细 子窗体<FO

baije

可不可以给你的原程序来看下！

读取数据应该不用打开窗体这么麻烦吧！

lussee

你看过我贴子上的程序编码吗?这就是我为了实现该功能所编写的原程序呀!请教你该程序有误吗?如按你所说的"读取数据应该不用打开窗体这么麻烦"的方法又是如何的?盼望你的速回.谢谢!!!

情比金坚

以下是引用baije在2006-12-9 13:01:00的发言：


可不可以给你的原程序来看下！

读取数据应该不用打开窗体这么麻烦吧！

点击第一窗体的子窗体可以获得一个索引，以该索引为条件去表里面筛选不就是该条数据的所有信息吗？

简单说就是第二个窗体的数据库源为一个筛选查询

lussee

利用索引的方法是简单，但是如索引的数据发生变化，那么窗体里从该索引获取的数据也随之发生变化，反之在编辑窗体更改引用的数据，也同样会令原数源的数据发生相应的改变，这样会大大地限制了数据的灵活性和独立性。我将一个窗体里的记录信息传递到现在编辑的窗体里，完全可以避免因某一窗体的数据改变而影响另一窗体的数据。但是却会出现我贴子里所阐述的问题，哎！真是美中不足呀。希望高手们能指出我以上编程的不足或错误。谢谢！！！

andymark

1.应把问题写在标题上，以便别人更容易帮你

2.把例子传上来比贴这么长代码,别人更容易明白问题的所在

lussee

是什么例子呀？整个文件吗？