主题：代码优化

第一段代码

If MainTable.Name = "客户欠款" Then
    Forms("客户欠款").Show()
Else
    Forms("客户欠款").Close()
End If
If MainTable.Name = "应付款" Then
    Forms("应付款分析").Show()
Else
    Forms("应付款分析").Close()
End If
If MainTable.Name <> "支出明细" Then
    Forms("应付运费").Close()
    Forms("杂费").Close()
    Forms("已付款").Close()
End If
If MainTable.Name = "装箱单" Then
    Forms("装箱单").Show()
Else
    Forms("装箱单").Close()
End If

For Each frm As WinForm.Form In Forms
    Select frm.Name
        Case "客户欠款","应付款分析","应付运费","杂费","已付款","装箱单"
            Forms(frm.Name).Close()
    End Select
Next
Select MainTable.Name
    Case "客户欠款"
        Forms("客户欠款").Show()
    Case "应付款"
        Forms("应付款分析").Show()
    Case "装箱单"
        Forms("装箱单").Show()
End Select

 这样试试?