- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求生成TabBar格式 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122068)
-- 发布时间：2018/7/18 14:32:00
-- 求生成TabBar格式
求生成类似这样的报表，下面的代码如何改
此主题相关图片如下：无标题.png
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
-- 发布时间：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
-- 发布时间：2018/7/18 17:25:00
--
不能生成具体报表名称，只能生成报表类别。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:web.foxdb |
-- 发布时间：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)
-- 发布时间：2018/7/18 18:22:00
--
第一行字，显示不完整。下面部分看不见了，领料上面这个1如何去掉
此主题相关图片如下：无标题.png
-- 发布时间：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)