Foxtable(狐表)用户栏目专家坐堂 → 求生成TabBar格式


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

主题:求生成TabBar格式

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


加好友 发短信
等级:狐神 帖子:6793 积分:42967 威望:0 精华:0 注册:2009/3/2 14:07:00
求生成TabBar格式  发帖心情 Post By:2018/7/18 14:32:00 [只看该作者]

求生成类似这样的报表,下面的代码如何改
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看
   Dim wb As New WeUI
        Dim txt As String =
"
由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
       
'增加三个页面,一个按钮
       
With wb.AddTabBar("", "tb1", 1)
            .AddPage("page1",
"
微信","./images/button.png")
           
.AddPage("page2","通讯录","./images/msg.png")
            .AddPage("page3","发现","./images/article.png")
            .AddButton("bt1","我","./images/cell.png","http://www.foxtable.com")
        End With
        '为第一个页面增加内容
        wb.AddForm("page1","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1")
            .AddInput("xm","户名","text")
            .AddInput("mm","密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/18 14:46:00 [只看该作者]

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        '增加三个页面,一个按钮
        With wb.AddTabBar("", "tb1", 1)
            .AddPage("page1","微信","./images/button.png")
            .AddPage("page2","通讯录","./images/msg.png")
            .AddPage("page3","发现","./images/article.png")
            .AddButton("bt1","我","./images/cell.png","http://www.foxtable.com")
        End With
        With wb.AddTabBar("page2", "tb2", 1)
            .AddPage("cpage1","微信","./images/button.png")
            .AddPage("cpage2","通讯录","./images/msg.png")
            .AddPage("cpage3","发现","./images/article.png")
            .AddButton("cbt1","我","./images/cell.png","http://www.foxtable.com")
        End With
        '为第一个页面增加内容
        wb.AddForm("cpage1","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1")
            .AddInput("xm","户名","text")
            .AddInput("mm","密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
e.WriteString(wb.Build)
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6793 积分:42967 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2018/7/18 17:25:00 [只看该作者]

不能生成具体报表名称,只能生成报表类别。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:web.foxdb


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/18 17:53:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI

With wb.AddTabBar("", "tb1", 1)
    .AddPage("page1","业务","./images/button.png")
    .AddPage("page2","通知","./images/msg.png")
    .AddPage("page3","制度","./images/article.png")
    .AddPage("page3","我们","./images/article.png")
End With

Dim cmd As new sqlcommand
cmd.commandtext="select distinct 报表类别 from {表A}"
Dim i As Integer=0
Dim j As Integer=0
Dim dt As DataTable=cmd.ExecuteReader()

With wb.AddTabBar("page1", "报表类别", 1)
    i=i=1
    j=0
    For Each r As DataRow In dt.DataRows
        j=j+1
        .Addpage(r("报表类别"),r("报表类别"),"./images/button.png")
        DataTables("表A").loadfilter="报表类别='" & r("报表类别") & "'"
        DataTables("表A").load()
        With wb.AddListGroup(r("报表类别"), "tb-" & j, "test")
            For Each dr As Row In Tables("表A").Rows
                .Add(dr("报表名称"),dr("报表名称"),"./images/button.png")
            Next
        End With
    Next
End With


e.WriteString(wb.Build)


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6793 积分:42967 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2018/7/18 18:22:00 [只看该作者]

第一行字,显示不完整。下面部分看不见了,领料上面这个1如何去掉

图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/7/18 18:25:10编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/18 21:41:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI

With wb.AddTabBar("", "tb1", 1)
    .AddPage("page1","业务","./images/button.png")
    .AddPage("page2","通知","./images/msg.png")
    .AddPage("page3","制度","./images/article.png")
    .AddPage("page3","我们","./images/article.png")
End With

Dim cmd As new sqlcommand
cmd.commandtext="select distinct 报表类别 from {表A}"
Dim i As Integer=0
Dim j As Integer=0
Dim dt As DataTable=cmd.ExecuteReader()

With wb.AddTabBar("page1", "报表类别", 1)
    i=i=1
    j=0
    For Each r As DataRow In dt.DataRows
        j=j+1
        .Addpage(r("报表类别"),r("报表类别"),"./images/button.png")
        DataTables("表A").loadfilter="报表类别='" & r("报表类别") & "'"
        DataTables("表A").load()
        With wb.AddListGroup(r("报表类别"), "tb-" & j, "")
           
            For Each dr As Row In Tables("表A").Rows
                .Add(dr("报表名称"),dr("报表名称"),"./images/button.png")
            Next
        End With
    Next
End With

wb.AppendHTML("<style>.weui_navbar+.weui_tab_bd{padding-top: 60px} .weui_cells {margin-top: 0em;</style>")
e.WriteString(wb.Build)


 回到顶部