如何调整SQL使同一学生可添加至不同班级，切换班级时重新显示？

你的问题根源在于当前SQL会排除所有在班级关联表（tbl_sdt_Rounds）中有记录的学生，不管这些学生属于哪个班级。要实现切换班级时，学生仅从当前班级的可用列表中隐藏（而非所有班级），只需修改筛选逻辑，只排除当前选中班级已关联的学生。

修改后的代码实现 #

假设你用来筛选班级的组合框名为cboSelectedRound，且绑定的是班级表的唯一ID字段（比如roundID），修改后的SQL如下：

Dim currentRoundID As Variant
' 获取当前选中的班级ID
currentRoundID = Me.cboSelectedRound.Value

lstNonRelatedStudents.RowSource = "SELECT sdtFullName, tbl_sdt_Info.sdtID " & _
   " FROM tbl_sdt_Info " & _
   " LEFT JOIN tbl_sdt_Rounds ON tbl_sdt_Info.sdtID = tbl_sdt_Rounds.sdtID " & _
   " AND tbl_sdt_Rounds.roundID = " & currentRoundID & " " & _
   " WHERE ((tbl_sdt_Rounds.sdtID) Is Null) "

逻辑说明 #

1. 将班级ID的筛选条件从WHERE子句移到LEFT JOIN的关联条件中，这样左连接只会匹配当前选中班级的学生记录，学生在其他班级的关联记录不会影响当前查询结果。
2. 最终WHERE条件只会排除当前班级已选中的学生，学生加入其他班级的记录不会导致他从别的班级可用列表中消失。

额外优化（处理未选中班级的情况） #

如果存在未选中任何班级的场景，需要补充判断避免SQL错误：

Dim currentRoundID As Variant
Dim sqlStr As String

currentRoundID = Me.cboSelectedRound.Value

sqlStr = "SELECT sdtFullName, tbl_sdt_Info.sdtID FROM tbl_sdt_Info "

If Not IsNull(currentRoundID) Then
    sqlStr = sqlStr & " LEFT JOIN tbl_sdt_Rounds ON tbl_sdt_Info.sdtID = tbl_sdt_Rounds.sdtID " & _
              " AND tbl_sdt_Rounds.roundID = " & currentRoundID & " " & _
              " WHERE tbl_sdt_Rounds.sdtID Is Null "
Else
    ' 未选中班级时，显示所有学生
    sqlStr = sqlStr & " ORDER BY sdtFullName "
End If

lstNonRelatedStudents.RowSource = sqlStr

注意事项 #

• 确保tbl_sdt_Rounds表中存在对应班级的标识字段（示例中为roundID），如果你的字段名不同，替换成实际字段名即可。
• 每次切换班级筛选器时，需要在组合框的AfterUpdate事件中调用这段代码，刷新可用学生列表。

内容的提问来源于stack exchange，提问作者Mowaffak Bakkar