以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导航菜单代码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16414)
--  作者：csxuebai
--  发布时间：2012/2/13 16:13:00
--  [求助]导航菜单代码问题

在首页的导航菜单中，有“所有应收款”菜单，按该菜单，将“记录表”中所有未到账记录生成“应收款”临时表中，在执行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
--  作者：狐狸爸爸
--  发布时间：2012/2/13 16:19:00
--  

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

 

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