Question

ACCESS在窗体里，比如输入窗体的姓名字段内容，能自动在下面子窗体中显示与输入姓名相关的记录，如何设计

Answer 1

Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Timer1.Enabled = True
End Sub

Sub xianshi()
Text1.DataField = "学号"
Text2.DataField = "姓名"
Text3.DataField = "性别"
Text4.DataField = "数学"
Text5.DataField = "语文"
Text6.DataField = "英语"
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew ("学号")
With Adodc1
.Recordset("学号") = Text1
.Recordset("姓名") = Text2
.Recordset("性别") = Text3
.Recordset("数学") = Text4
.Recordset("语文") = Text5
.Recordset("英语") = Text6
.Recordset.Save
End With
End Sub

Private Sub Timer1_Timer()
If Adodc1.Recordset.EOF = False Then
If Text8.Text = Text7.Text Then
Call xianshi
Else
Adodc1.Recordset.MoveNext
Timer2.Enabled = True
End If
End If
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
If Adodc1.Recordset.EOF = False Then
If Text8.Text = Text7.Text Then
Call xianshi
Else
Adodc1.Recordset.MoveNext
Timer1.Enabled = True
End If
End If
Timer2.Enabled = False

End Sub
这段程序 完全可以满足你的要求 不过你要 建数据库 嫌麻烦的话 把邮箱给我 我把程序发给你！！

Answer 2

用数据表table1做数据源，建一窗体(取名窗体1),总建两组合框A及B，两组合框的行来源类型选表/查询。
组合框A的行来源写sql语句：SELECT distinct [table1].[姓名] FROM [table1]，给组合框取名xingm。
组合框B的行来源写sql语句：SELECT table1.班级 FROM table1 WHERE (((table1.姓名)=[Forms]![窗体1]![xingm]))
此方法是我程序中用过的，我只用两字段（姓名，班级)举例而已，往后字段可以类推。
组合框中有很多技巧，只能自己去摸索。