代码优化 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

第一段代码

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

第二段代码
If MainTable.Name <> "业务大表" Then
RibbonTabs("我的工作").Groups("工作组")("工作窗口")("应收款销账").Enabled = False
RibbonTabs("我的工作")("工作组")("工作窗口")("开piao").Enabled = False
RibbonTabs("我的工作")("工作组")("工作窗口")("现金客户详情").Enabled = False
Else
RibbonTabs("我的工作").Groups("工作组")("工作窗口")("应收款销账").Enabled = True
RibbonTabs("我的工作")("工作组")("工作窗口")("开piao").Enabled = True
RibbonTabs("我的工作")("工作组")("工作窗口")("现金客户详情").Enabled = True
End If
If MainTable.Name <> "支出明细" Then
RibbonTabs("我的工作")("工作组")("工作窗口")("应付款销账").Enabled = False
Else
RibbonTabs("我的工作")("工作组")("工作窗口")("应付款销账").Enabled = True
End If

那位帮忙优化一下。感觉太复杂了。

主题：代码优化