7,759
社区成员
发帖
与我相关
我的任务
分享
'FrmFilter
Option Explicit
Public BillType As String
'FrmList
Option Explicit
Private Sub ShowFilter(ByVal BillType As String)
Dim frm As Form
Dim formFilter As FrmFilter
For Each frm In Forms
If TypeOf frm Is FrmFilter Then
Set formFilter = frm
If formFilter.BillType = BillType Then
Exit For
End If
Set formFilter = Nothing
End If
Next
If formFilter Is Nothing Then
Set formFilter = New FrmFilter
formFilter.BillType = BillType
End If
formFilter.Show
End Sub
Private Sub Command1_Click()
ShowFilter "A"
End Sub
Private Sub Command2_Click()
ShowFilter "B"
End Sub
Private Sub Command3_Click()
ShowFilter "C"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim frm As Form
For Each frm In Forms
If Not frm Is Me Then
Unload frm
End If
Next
End Sub