列表联动的问题

jzg2233

问题：
窗体来自[成绩表]，字段有 [班名]、[学生姓名]、[物理考试分数]、[数学考试分数]、[语文考试分数]…….

列表框[列表1]显示：一班、二班、三班、四班
列表框[列表2]显示：张某某、李某某、王某某（学生姓名）

要求：点击[列表1]中的一班时，[列表2]显示一班所有学生姓名，而不显示其它班的学生姓名。依此类推点击其它班。请写出ACCESS代码，括号、引号都请写清楚。
（点击学生姓名后显示成绩，我自已会做）
谢谢了。

aslxt

Private Sub 列表1_Click()
  列表2.RowSource = "select distinct 学生姓名 from 成绩表 where 班名='" & 列表1.Column(0) & "'"
End Sub

jzg2233

谢谢你的回答。
前面的问题我漏掉了细节，补充如下：
1、我还建了[班名表]，事先把一班、二班、三班、四班录进去了，即[列表1]的数据源是[班名表]。
2、[列表2]的数据源是[成绩表]中的一个字段[学生姓名]，这个列表显示的学生姓名可能有同名。
我用你的答案试了一下，还没有成功。
再次表示感谢！

jzg2233

我成功了。
不能选学生姓名，因为有同名，改为学号后就成功了。
以后我有问题还到这里请教。