[求助]从组合框中选取名称后，列表框中列出明细？

cofe2000 · 发表于 2004-4-15 09:37

Private Sub 组合0_Change() Forms("查询").列表2.RowSource = "SELECT 总表.姓名, 总表.年龄, 总表.单位" FROM 总表 WHERE 总表.单位 Like "'*" & 组合0.Value & "*' " End Sub

请帮忙看看哪里不对啊，谢谢！！

bmf9NlX2.rar (11.25 KB, 下载次数: 22)

[此贴子已经被作者于2004-4-15 9:54:19编辑过]

cofe2000 · 发表于 2004-4-15 10:21

继续请教：换成这样，还是不行啊：（

Private Sub 组合0_Change() Dim str As String str = "SELECT 总表.姓名, 总表.年龄, 总表.单位 FROM 总表 " & " where 总表.单位='" & 组合0 & "'" Me.列表2.RowSource = str Me.列表2.Requery End Sub

cofe2000 · 发表于 2004-4-15 10:59

谢谢版主：

再请教啊1、不符合主从表的规范是什么意思？

2、您的附件我试用没有问题，但是我将代码粘贴到自己的查询中却不行，是不是别的地方还有什么修改啊？

初学access请多多关照！

cofe2000 · 发表于 2004-4-15 11:12

感谢！！

yg877 · 发表于 2004-4-17 10:42

Tcoe2000

CC:winak

你们好!我是Access初学者,请多多点点,为什么我打开winak做的表格总是显示如下图:我该怎么办.

cofe2000 · 发表于 2004-4-18 12:45

我也不知道，可能是简体和繁体的问题吧

winak · 发表于 2004-4-15 11:08

你的主表中不需要记录单位的名称，建议改为单位的代码，然后与单位表建立对应“一对多”的关系，否则的话你在模块中Change事件要改：

select 总表.* from 总表 where 总表.单位 = ( select 单位.ID from 单位 where 单位.单位= me.组合0.value）

winak · 发表于 2004-4-15 10:23

以下是引用cofe2000在2004-4-15 10:21:00的发言：

继续请教：换成这样，还是不行啊：（

Private Sub 组合0_Change() Dim str As String str = "SELECT 总表.姓名, 总表.年龄, 总表.单位 FROM 总表 " & " where 总表.单位='" & 组合0 & "'" Me.列表2.RowSource = str Me.列表2.Requery End Sub

你这个不符合主从表的规范。

OV1hyq6y.rar (17.56 KB, 下载次数: 50)

		自动登录	找回密码
密码			免费注册