Foxtable(狐表)用户栏目专家坐堂 → 代码


  共有2176人关注过本帖树形打印复制链接

主题:代码

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 


 回到顶部