比较复杂的选项组问题

winner

选择a时可以看到4个不同的报表，选择b时可以也看到4个不同的报表，即可以看到8个不同的报表，代码应怎样写啊？

sgrshh29

Private Sub Command11_Click()
Dim stDocName As String
If Me.Frame12 = 1 Then
Select Case Frame0
    Case 1
    stDocName = "R_sdsf"
    Case 2
    stDocName = "R_sdsfdf"
    Case 3
    stDocName = "R_sdsfjhkjh"
    Case 4
    stDocName = "R_sdsftreytr"
End Select
ElseIf Me.Frame12 = 2 Then
Select Case Frame0
    Case 1
    stDocName = "erwrwet"
    Case 2
    stDocName = "fchbvc"
    Case 3
    stDocName = "gfcxh"
    Case 4
    stDocName = "xgvfds"
End Select
Else
    Exit Sub
End If
DoCmd.OpenReport stDocName, acPreview
End Sub

一点通

学会变通才能学到东西的，不要成天问题而自已不学习解决问题

winner

谢谢！