Office中国论坛/Access中国论坛

标题: 怎么样来实现这两个数据框之间的通信呢？ [打印本页]

作者: emilyfu 时间: 2003-12-2 23:39
标题: 怎么样来实现这两个数据框之间的通信呢？
有的时候，我想得到多个厂家的信息，并一起用一张报表打印出来。我在想可不可以，先用一个列表框列出所以厂家的名字，然后用户在这里挑选出需要打印的厂家的名字。并每选择一个厂家，就把这个厂家名存入另一方框内，或者，也可以在这个方框删除已选的厂家（错选是，可以修改），最后把这个方框内的所有厂家信息打印出来。我的问题是：怎么样来实现这两个数据框之间的通信呢？ACCESS本身有这样的一个功能吗？还是需要自己想办法来设计？如果您有这样的例子，我将不甚感激！请赐教！[em11]

作者: wewyhy 时间: 2003-12-2 23:44
可以的，就向向导一样

作者: wewyhy 时间: 2003-12-3 15:36
不是很完善，基本功能实现了。

[attach]2663[/attach]

作者: wewyhy 时间: 2003-12-3 16:45
不甚感激,是不怎么感激的意思吧，嘿嘿

作者: emilyfu 时间: 2003-12-3 19:59
不甚感激,就是感激得不知道还剩下什么了。哈哈，真的，谢谢了！

作者: 阿罗 时间: 2003-12-3 23:19
我做了一个比较完善的给你。两种方法，分别为demo1和demo2，回去好好研究吧。

[attach]2675[/attach]

作者: 阿罗 时间: 2003-12-3 23:24
demo1是在一个listbox里面多选
[attach]2676[/attach]

作者: 阿罗 时间: 2003-12-3 23:24
demo2是从一个listbox选到另一个listbox打印
[attach]2677[/attach]

作者: emilyfu 时间: 2003-12-3 23:26
非常感谢！阿罗，我好好学习学习，我比较笨点，要是不懂的地方，还要再向你请教的哦？

作者: 阿罗 时间: 2003-12-3 23:28
不要客气

作者: wewyhy 时间: 2003-12-3 23:38
有错，我是WINXP+ACESS2000

[attach]2679[/attach]

作者: emilyfu 时间: 2003-12-3 23:38
我把我的数据传上来了，好象地方不对，在另外一个页面

作者: emilyfu 时间: 2003-12-3 23:41
标题: 我把我的数据库贴上来，我有两个问题
1、在Search Manufacturer Information ,这个窗体上，我想实现上面说的，两个方框通信的功能。
2、在Add/Edit这个窗体上，我想实现输入新记录，但是在输入的时候，有的时候，某个厂家的信息数据库里已经有了，所以我想直接在旁边选择厂家名，它的信息就会出现在方框内，然后再连同下面的产品信息一起做为新的信息，存入到数据库中
[attach]2681[/attach]

作者: LYP6160 时间: 2003-12-3 23:44
WIN98+ACESS2000也出现11楼所示的问题

作者: 阿罗 时间: 2003-12-3 23:51
将docmd.openReport中acViewPreview改为acPreview，虽然我没有acc2000。仔细一点的话查下帮助文档。

作者: wewyhy 时间: 2003-12-4 00:01
那你用的是2000以上版本喽
docmd.openReport那一句，逗号都比2000版的多两个

作者: wewyhy 时间: 2003-12-4 00:02
也不光这一句，好几处有问题，什么方法没找到之类的

作者: 阿罗 时间: 2003-12-4 00:03

以下是引用wewyhy在2003-12-3 16:00:40的发言：
那你用的是2000以上版本喽
docmd.openReport那一句，逗号都比2000版的多两个

恩没错。真是不好意思。我用的是officeXP。那你现在可以用了么

作者: 阿罗 时间: 2003-12-4 00:06

以下是引用wewyhy在2003-12-3 16:02:05的发言：
也不光这一句，好几处有问题，什么方法没找到之类的

哦。原来同2000版本差别那么大。哪里有问题不妨告诉我

作者: wewyhy 时间: 2003-12-4 00:15
代码那么长，看不懂啊，还是阿罗同志出个2000版的吧。注释也多加点

作者: 阿罗 时间: 2003-12-4 00:30
好吧。忘了加注释，对不起了。一下子也找不到access2000，现在就把demo1和demo2的核心语句解释一下吧。

demo1的核心语句很少，就是在这里：

If lstFactory.ItemsSelected.Count > 0 Then
For Each temp In lstFactory.ItemsSelected
result = result & " (ID = " & lstFactory.ItemData(temp) & ") OR"
Next temp
DoCmd.OpenReport "rptFactory", acViewPreview, , , , Left(result, Len(result) - 3)
Else.......

listbox的名称是lstFactory，设计时，“多重选择”那里选择“简单”。当打印按钮被按下时，就执行上面的语句。

上面语句中 If lstFactory.ItemsSelected.Count > 0 用来判断是否在列表框中作了选择（如果没有任何选择那么其值为0），如果有选择的话，那么：
For Each temp In lstFactory.ItemsSelected 即是对每个选择了的项目依次循环，然后组成一个sql语句的where部分保存到result中。例如选择了id为3和5的工厂，那么最后result中的结果就是 "(ID=3) OR (ID=5) OR"
Left(result, Len(result) - 3)的运算结果就变成"(ID=3) OR (ID=5)"，这个就是我们要送到报表去打印的。

再看报表的open事件，如果有参数传入，例如"(ID=3) OR (ID=5)"，那么就决定报表的数据源为

SELECT * FROM factory WHERE (ID=3) OR (ID=5)

这样解释是否明白？

作者: 阿罗 时间: 2003-12-4 00:56
demo2的程序并不象看上去的那么复杂，现在我来解释一下：

窗体打开时，我们用一个recordSet来组成要给listbox显示的值列表。（当然，两个listbox的数据来源都要设成值列表）
Private Sub Form_Open(Cancel As Integer)
Set rst = CurrentProject.Connection.Execute("SELECT id, fname FROM factory ORDER BY fname")
lstSource = ""
While Not rst.EOF
lstSource = lstSource & rst(0) & ";" & rst(1) & "," ‘///rst(0) 即rst("id"), rst(1)即rst("fname")
rst.MoveNext
Wend
lstSource = Left(lstSource, Len(lstSource) - 1) '///把最后的一个逗号去掉
'///lstSource的最后结果是 "1;某某厂,2;某某厂,3;某某厂。。。。"
lstFactory.RowSource = lstSource
End Sub
之所以将rst和lstSource变量声名放在模块顶部，是因为全选的两个按钮要用到。

几个按钮：单选的两个按钮都是调用有关listbox的双击事件，全选的两个按钮就是把一个listbox置空、另一个放满，没什么好说。现在就剩下两个listbox的双击事件需要解释了。

两段程序是“对称”的，所以只需解释一个。

Private Sub lstFactory_DblClick(Cancel As Integer)
With lstFactory
If .ItemsSelected.Count > 0 Then
      lstPrint.AddItem (.Column(0, .ItemsSelected(0)) & ";" & .Column(1, .ItemsSelected(0)))
      .RemoveItem (.ItemsSelected(0))
End If
End With
End Sub

将with...end with块去掉，可以看清楚些
Private Sub lstFactory_DblClick(Cancel As Integer)
If lstFactory.ItemsSelected.Count > 0 Then
      lstPrint.AddItem (lstFactory.Column(0, lstFactory.ItemsSelected(0)) & ";" & .Column(1, lstFactory.ItemsSelected(0)))
      lstFactory.RemoveItem (lstFactory.ItemsSelected(0))
End If
End Sub
重要的是If块里面的两句，解释如下
第一句 lstPrint.AddItem (lstFactory.Column(0, lstFactory.ItemsSelected) & ";" & .Column(1, lstFactory.ItemsSelected))：将lstFactory选择的项目添加到lstPrint中。
第二句 lstFactory.RemoveItem (lstFactory.ItemsSelected(0))：将lstFactory选择的项目删除。
lstFactory.ItemsSelected(0)表示第一个选择的项目，其值是那个项目的行号（行号从0开始）。例如选择了第三行，那么这个值就是2。listbox里面某条的具体内容（如工厂id和工厂名称），用法是
listbox.Column(列号，行号)。列号和行号都是从0开始。所以，假定选择了第三行，那么lstFactory的第一列（现为隐藏列）(lstFactory.Column(0, lstFactory.ItemsSelected(0)) 即lstFactory.Column(0,2)，第三行的第二列（现为工厂名称）就是lstFactory.Column(1,2)
现在将工厂id和工厂名称组合成 "id; fname"这样的形式添加到lstPrint的末尾，这就是第一句的全部含义了。
要深入了解listbox（以及combobox）的一些属性方法，建议查看帮助文档及其示例。

作者: LYP6160 时间: 2003-12-4 00:57

以下是引用阿罗在2003-12-3 15:50:33的发言：
将docmd.openReport中acViewPreview改为acPreview，虽然我没有acc2000。仔细一点的话查下帮助文档。

DoCmd.OpenReport "rptFactory", acPreview, , , , Left(result, Len(result) - 3)

提示出错：“错误的参数或无效的属性赋值（红字部份）”，

作者: 阿罗 时间: 2003-12-4 01:04
我想你可以利用access中智能代码输入的功能，从docmd开始按照提示重新写一下这行。这行原本的意思是，将Left(result, Len(result) - 3)作为openArgs去打开rptFactory这个报表。或者参考一下帮助文档吧。我实在是找不到access2000.

作者: LYP6160 时间: 2003-12-4 01:17

以下是引用LYP6160在2003-12-3 16:56:56的发言：
[quote]以下是引用阿罗在2003-12-3 15:50:33的发言：
将docmd.openReport中acViewPreview改为acPreview，虽然我没有acc2000。仔细一点的话查下帮助文档。

DoCmd.OpenReport "rptFactory", acPreview, , , , Left(result, Len(result) - 3)

提示出错：“错误的参数或无效的属性赋值（红字部份）”，
[/quote]

改为这样OK
DoCmd.OpenReport "rptFactory", acViewNormal, Left(result, Len(result) - 3)

作者: wewyhy 时间: 2003-12-4 19:18
英文版的看起来头哦，在主窗体给子窗体的控件赋值方法如下

Forms![ADDEDIT]![Manufacturer Information]![alia] = Me.Combo10.Column(3)

我也是问来的
http://www.office-cn.net/bbs/dispbbs.asp?boardid=3&ID=12716&replyID=66149&skin=2

这个我只作了一个，其余类似
[attach]2696[/attach]

作者: wewyhy 时间: 2003-12-4 19:25
emilyfu,你的窗体里的记录选定器等可以去掉，这样更“英文版”一点，界面也一致

作者: emilyfu 时间: 2003-12-4 20:30
标题: 谢谢你的回复
谢谢你答复，其实我想在ADDEDIT这个界面上实现的功能主要就是添加新的产品，有的时候在添加产品的时候，其实这个产品已经存在了，你添加的可能是这个产品的另外一个分支，或是另一个厂家做的。为了节省时间和避免出错，在添加之前，先要看Ｐroduct 有没有你将要添加的产品，有的话就选择一个Product ,那下面就灰出现对应的的product Detail.　　比如我在Product 这一栏里选择Ｃable,那么下面的Product Detail里就会出现network cable 和 crossover cable.　并且希望在选择Ｃable和crossover cable 的时候，Ｃable和crossover 同时也会出现在字窗体中。然后就只需要填上其他的产品的信息。在选择这个产品的生产厂家的时候也一样，如果这个厂家已经存在，那么就直接把信息填上就可以。没有的话再自己填上去。在信息全部填完之后，再通过一个按钮来把所有的信息存到表格中去。[attach]2697[/attach]

作者: emilyfu 时间: 2003-12-4 20:32
我正在为能实现这些功能而头疼，你帮看看，因为对你来说也许是个很容易的事情

作者: wewyhy 时间: 2003-12-4 20:33
28贴的字体把眼看花了

[此贴子已经被作者于2003-12-4 12:37:54编辑过]

作者: emilyfu 时间: 2003-12-4 20:52
不是吧？很花吗？嘿嘿

作者: smty 时间: 2005-4-13 17:59
Demo2中的“addItem”和“RemoveItem”在Acc2002中才可以用，请教高手，在Acc2000中该如何实现该功能呢？？？？？多谢多谢！

作者: artbao 时间: 2006-3-12 00:03
GOOD

作者: mercuryhg 时间: 2006-5-14 21:48
实在谢谢阿罗版主啊，我也在想要实现相似的功能，看了实例之后想出了方法。谢谢！

作者: zqzhan 时间: 2006-9-6 21:27
又是vba编程，很好学吗

作者: 46174959 时间: 2006-9-7 21:13
hao

作者: 46174959 时间: 2006-9-7 21:15
hao

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)