- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114123)
-- 发布时间：2018/1/29 13:47:00
-- 代码
此主题相关图片如下：1-28-1.png
在窗口的AfterLoad 事件中写代码 问题出在修改状态下面的代码 执行后出现图片的内容，不知道错在哪里
Dim Page As WinForm.TopicPage
Page = Forms("设变-左侧导航栏").Controls("TopicBar1").Pages("设计")
For Each nm As String In DataTables("基本设定").GetValues("名称","类别=\'设计\' and 显隐=false ")
Dim link As WinForm.TopicLink = Page.Links.Add(nm,nm)
Dim cnt As Integer = DataTables("数据更改统计表").Compute("count([_Identify])","修改人= \'" & nm & "\'")
\'通过主健来统计数量
link.text=link.text & " " & "(" & cnt & ")" & "付"
Next
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 修改状态
page = Forms("左侧导航栏").Controls("TopicBar1").Pages("修改状态")
Dim nms1 As String() ={"修改中","修改完成","未修改"}
For Each nm As String In nms1
Dim link As WinForm.TopicLink = page.Links.Add(nm,nm)
Dim cnt As Integer = DataTables("数据更改统计表").Compute("count([_Identify])","修改状态= \'" & nm & "\'")
\'通过主健来统计数量
link.text=link.text & " " & "(" & cnt & ")" & "付"
Next
-- 发布时间：2018/1/29 14:27:00
--
Dim Page As WinForm.TopicPage
Page = e.formControls("TopicBar1").Pages("设计")
For Each nm As String In DataTables("基本设定").GetValues("名称","类别=\'设计\' and 显隐=false ")
Dim link As WinForm.TopicLink = Page.Links.Add(nm,nm)
Dim cnt As Integer = DataTables("数据更改统计表").Compute("count([_Identify])","修改人= \'" & nm & "\'")
\'通过主健来统计数量
link.text=link.text & " " & "(" & cnt & ")" & "付"
Next
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 修改状态
page = e.form.Controls("TopicBar1").Pages("修改状态")
Dim nms1 As String() ={"修改中","修改完成","未修改"}
For Each nm As String In nms1
Dim link As WinForm.TopicLink = page.Links.Add(nm,nm)
Dim cnt As Integer = DataTables("数据更改统计表").Compute("count([_Identify])","修改状态= \'" & nm & "\'")
\'通过主健来统计数量
link.text=link.text & " " & "(" & cnt & ")" & "付"
Next