选择a时可以看到4个不同的报表，选择b时可以也看到4个不同的报表，即可以看到8个不同的报表，代码应怎样写啊？作者: sgrshh29 时间: 2006-1-10 00:05
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作者: 一点通 时间: 2006-1-10 00:23
学会变通才能学到东西的，不要成天问题而自已不学习解决问题作者: winner 时间: 2006-1-10 00:24
谢谢！