【求助】TopicBar利用代码生成了标签，怎么定义linkS点击不通的标签，打开不同的页面呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

【求助】TopicBar利用代码生成了标签，怎么定义linkS点击不通的标签，打开不同的窗体呢？

窗体启动后事件代码如下：

Dim Page As WinForm.TopicPage

Dim cnt1 As Integer = DataTables("客户资料").Compute("Count(销售日编号)","销售日期 = #" & Date.Today & "#")

Dim cnt2 As Integer = DataTables("客户资料").Compute("Sum(实收金额)","销售日期 = #" & Date.Today & "#")

Dim cnt3 As Integer = DataTables("客户资料").Compute("Sum(应收金额)","销售日期 = #" & Date.Today & "#")

Dim cnt4 As Integer = DataTables("客户资料").Compute("Sum(尚欠金额)","销售日期 = #" & Date.Today & "#")

Dim cnt5 As Integer = DataTables("客户资料").Compute("Count(是否安装)","销售日期 = #" & Date.Today & "#")

Page = e.Form.Controls("TopicBar2").Pages.Add("今日情况","今日情况")

Page.Links.Add("今日新增订单","今日新增订单(" & cnt1 & "单)" )

Page.Links.Add("今日实收金额","今日实收金额(" & cnt2 & "元)" )

Page.Links.Add("今日应收金额","今日应收金额(" & cnt3 & "元)" )

Page.Links.Add("今日待结金额","今日待结金额(" & cnt4 & "元)" )

Page.Links.Add("今日尚未安装","今日尚未安装(" & cnt5 & "单)" )

有点色老师

Select Case e.Link.Name
    Case "今日新增订单"
        A'在此加入相应的代码
    Case "今日实收金额"
        B'在此加入相应的代码
    Case "今日应收金额"
        C'在此加入相应的代码
    Case "今日待结金额"
        D'在此加入相应的代码
End Select

有没有办法实现不定义具体的case 而实现自动传接比如今日新增订单这个值，然后对应执行代码A呢？

红色部分内容比较多，可否有一个通用的写法，自动传递

Select Case e.Link.Name

Case "e.Link.Name"

Dim Name As String = e.Link.Name

Forms(Name).OPEN

End Select

这样写运行无效果。

[此贴子已经被作者于2017/6/21 9:28:03编辑过]

此主题相关图片如下：微信图片_20170621095734.png

报错，是不是我弄错了事件地方哦？

此主题相关图片如下：2.png

主题：【求助】TopicBar利用代码生成了标签，怎么定义linkS点击不通的标签，打开不同的页面呢？