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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】TopicBar利用代码生成了标签，怎么定义linkS点击不通的标签，打开不同的页面呢？

共有1665人关注过本帖树形打印复制链接主题：【求助】TopicBar利用代码生成了标签，怎么定义linkS点击不通的标签，打开不同的页面呢？

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

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

Post By：2017/6/20 15:45:00 [只看该作者]

【求助】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 & "单)" )

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/20 15:49:00 [只看该作者]

参考

http://www.foxtable.com/webhelp/scr/0869.htm

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点色）参考 http://www.fox... 发帖心情

Post By：2017/6/21 8:44:00 [只看该作者]

有点色老师

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

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