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

在首页的导航菜单中，有“所有应收款”菜单，按该菜单，将“记录表”中所有未到账记录生成“应收款”临时表中，在执行sql语句时没有问题，但是做到导航菜单的topiclinkclick事件后，点击了菜单打开的是空白的应收款表，这段代码错在什么地方啊

Select Case e.Link.Name
 ……

Case "所有应收款"
    Dim sql As String = "Select 日期,部门,姓名,合同价,传真号,备注 from {记录表} where 到账 = False"
    Dim b As New CrossTableBuilder("应收款",sql) 
MainTable = Tables("应收款")

……
End Select

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

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