- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 【求助】TopicBar利用代码生成了标签，怎么定义linkS点击不通的标签，打开不同的页面呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102479)
-- 发布时间：2017/6/20 15:45:00
-- 【求助】TopicBar利用代码生成了标签，怎么定义linkS点击不通的标签，打开不同的页面呢？
【求助】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 & "单)" )
-- 发布时间：2017/6/20 15:49:00
--
参考
http://www.foxtable.com/webhelp/scr/0869.htm
-- 发布时间：2017/6/21 8:44:00
-- 回复：（有点色） 参考 http://www.fox...
有点色老师
Case "今日新增订单"
A\'在此加入相应的代码
Case "今日实收金额"
B\'在此加入相应的代码
Case "今日应收金额"
C\'在此加入相应的代码
Case "今日待结金额"
D\'在此加入相应的代码
End Select
有没有办法实现 不定义具体的case 而实现自动传接比如 今日新增订单 这个值，然后对应执行代码A呢？
-- 发布时间：2017/6/21 8:53:00
--
3楼那样写代码有什么问题？你不同的值，执行不同的代码，肯定要区分来写。
-- 发布时间：2017/6/21 9:21:00
-- 回复：（有点色）?3楼那样写代码有什么问题？你不...
Select Case e.Link.Name
Case "今日新增订单"
A\'在此加入相应的代码
Case "今日实收金额"
B\'在此加入相应的代码
Case "今日应收金额"
C\'在此加入相应的代码
Case "今日待结金额"
D\'在此加入相应的代码
End Select
红色部分内容比较多，可否有一个通用的写法，自动传递
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编辑过]
-- 发布时间：2017/6/21 9:53:00
--
If Forms.contains(e.link.name) Then
Forms(Name).Show
End If
-- 发布时间：2017/6/21 9:58:00
-- 回复：（有点色）If Forms.contains(e.link.name) The...
此主题相关图片如下：微信图片_20170621095734.png
报错，是不是我弄错了事件地方哦？
-- 发布时间：2017/6/21 10:00:00
--
直接写6楼代码。
-- 发布时间：2017/6/21 10:02:00
-- 回复：（有点色）直接写6楼代码。
此主题相关图片如下：2.png
-- 发布时间：2017/6/21 10:02:00
--
If Forms.contains(e.link.name) Then
Forms(e.link.Name).Show
End If