主题：[求助]导航菜单代码问题

估计原因很简单：你的代码没有执行。

messagebox.show(e.Link.Name & "执行前")
Select Case e.Link.Name
    Case "所有应收款"
        messagebox.show(e.Link.Name & "执行了")
        Dim sql As String = "Select 日期,部门,姓名,合同价,传真号,备注 from {记录表} where 到账 = False"
        Dim b As New CrossTableBuilder("应收款",sql)
        MainTable = Tables("应收款")
End Select