主题：[求助][求助]有点蓝老师，单选框问题

Dim Filter As String = "1=1"
Dim filter2 As String = ""
If e.Form.Controls("checkbox1").Checked = True
    Filter2 = Filter2 & " or kssj = '201809'"
End If
If e.Form.Controls("checkbox2").Checked = True
    Filter2 = Filter2 & " or kssj = '201810'"
End If

If e.Form.Controls("checkbox3").Checked = True
    Filter2 = Filter2 & " or kssj = '201811'"
End If

If filter2 > "" Then
    filter = filter & " and (" & filter2.SubString(3) & ")"
End If
If e.Form.Controls("选择理科").Checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "lw = '理科'"
End If
If e.Form.Controls("选择文科").Checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "lw = '文科'"
End If
With e.Form.Controls("textbox1")
    If .Value IsNot Nothing Then
        Filter &= " and xm like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("textbox2")
    If .Value IsNot Nothing Then
        Filter &= " and kpjy like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("combobox3")
    If .Value IsNot Nothing Then
       
        Filter = Filter & " and bj = '" & .Value & "'"
    End If
End With

 

Tables("成绩查询表").Filter = Filter

老师，还有一个问题，我想选中表格中的学生某个姓名后，然后再点击复制按钮，直接显示在学生姓名textbox1文本框中，那个复制按钮代码应该是怎样的，如果是多选几个学生姓名，同样显示在文本中又是怎样的，谢谢老师！

这么快啊，太谢谢老师了！还希望老师解答这个问题啊，，谢谢！

Dim t As Table = Tables("成绩查询表")
Dim str As String = ""
For i As Integer = t.TopPosition To t.BottomPosition
    str &= t.Rows(i)("xm") & ","
Next
msgbox(str.trim(","))

 

谢谢老师，这么及时，我想我没有说清楚，我的意思是选中一个具体姓名后，点复制按钮就复制到标签是学生姓名的输入框（textbox1）中，这样不是省得输入了吗，上面代码出现了这样的对话框，再次谢谢老师！

如果是 选了一个班级比如十二班，也用这个复制按钮点击后，但要显示在班级的combobox3中，这两个如果一起用，写入怎样的代码，谢谢老师！

如果代码太麻烦，还不如直接复制粘贴，就不用了，再次谢谢老师，非常感谢！

    e.Form.Controls("combobox3").text = r("班级")

谢谢蓝老师，非常感谢！祝新春快乐阖家幸福！

蓝老师，我刚才试了一下，能完成，可是怎么一起复制过去的，我想点姓名后，只是姓名显示，点班级后，只是班级显示，怎么改进呢，谢谢老师！