标题：代码优化
第一段代码
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
那位帮忙优化一下。感觉太复杂了。
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
这样试试?
