主题：任务栏对应表问题

红色的代码，改成对应的link的名字

Select Case e.Link.Text
    Case "任务1"
        Forms("台帐窗口").Open()
        MainTable = Tables("合同台帐")
    Case "任务2"
        Forms("项目窗口").Open()
        MainTable = Tables("合同管理明细")   
End Select