专家坐堂-返回到 TabBarFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=170418)

--  作者：qazlinle6
--  发布时间：2021/7/25 22:17:00
--  返回到 TabBar

此主题相关图片如下：qq浏览器截图20210725221342.png

返回到  .AddPage("page2","销售明细","./images/Relation32.ico") 上

此主题相关图片如下：qq浏览器截图20210725221400.png

--  作者：有点蓝
--  发布时间：2021/7/25 22:43:00
--
参考：http://www.foxtable.com/mobilehelp/topics/0109.htm

.Add("btn1", "下一页", "button").Attribute="onclick=""hide(\'page1\');show(\'page2\')"""

--  作者：qazlinle6
--  发布时间：2021/7/25 23:20:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:新建文本文档 (2).txt

没反应

-- 作者：有点蓝
-- 发布时间：2021/7/26 8:43:00
--

Select Case e.Path
Case "test.htm"
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
\'增加三个页面,一个按钮
With wb.AddTabBar("", "tb1", 1)
.AddPage("page1","销售信息","./images/Report32.ico")
.AddPage("page2","销售明细","./images/Relation32.ico")
.AddPage("page3","销售旧金","./images/OuterTable32.ico")

End With
\'为第一个页面增加内容
……
\'为第三个页面增加内容
With wb.AddArticle("page3","ar1")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText= "select *From 销售回收换款旧金 where 编号 = \'" & e.GetValues("pv") & "\'"

Dim dt As DataTable = cmd.ExecuteReader
For Each r As DataRow In dt.DataRows
With wb.AddPreview("page3","pv" & r("_Identify")," ","" & r("对账品名")+"|"+ r("旧金备注")+r("旧金品名")+r("旧金店名") & "" )
\'.AddItem("商品条码:" , r("商品条码"))
.AddItem("" & "金重:" & r("金重") & "","" & "标签价格:" & r("标签价格") & "")
.Addbutton("详情", "", 1)
End With
wb.AppendHTML(" ")
Next
End With
If e.GetValues.ContainsKey("p") Then
wb.AppendHTML("<script>hide(\'page1\');show(\'" & e.GetValues("p") & "\')</script>")
End If
Case "filter2.htm"
wb.AddForm("","form1","test.htm")

With wb.AddInputGroup("form1","ipg1","销售明细详情")

……

With wb.AddButtonGroup("","btg1")
.Add("btn1", "返回", "button","test.htm?p=page2")
End With
End Select

--  作者：qazlinle6
--  发布时间：2021/7/26 11:18:00
--
返回了，东西都不见了
[此贴子已经被作者于2021/7/26 11:27:30编辑过]

-- 作者：有点蓝
-- 发布时间：2021/7/26 11:41:00
--

test.htm
\'为第二个页面增加内容

With wb.AddPanelGroup("page2","pg2","销售明细")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText= "select *From 销售明细 where 编号 = \'" & e.GetValues("pv") & "\'"
Dim dt As DataTable = cmd.ExecuteReader
For Each r As DataRow In dt.DataRows
With wb.AddPreview("page2","pv" & r("_Identify")," ","" & r("对账品名")+r("对账品类") & "" )
.AddItem("" & "商品名称:" & "" ,"" & r("品名商品名称") & "")
.AddItem("" & "商品条码:" & r("商品条码") & "","" & "金重:" & r("金重") & "")
.AddItem("" & "标签价格:" & r("标签价格") & "","" & "总重量:" & r("总重量") & "")
.Addbutton("详情", "filter2.htm?id=" & r("_Identify") & "&pv=" & e.GetValues("pv"), 1)
\'.Addbutton("修改", "新增客户.htm?id=" & dr("_Identify"), 0)
End With
wb.AppendHTML(" ")
Next
End With
-------------------------
filter2.htm
……

With wb.AddButtonGroup("","btg1")
.Add("btn1", "返回", "button","test.htm?p=page2&pv=" & e.GetValues("pv"))
End With
End Select

--  作者：qazlinle6
--  发布时间：2021/7/26 14:13:00
--  固定按妞

此主题相关图片如下：qq浏览器截图20210726140951.png

下面加个固定返回按妞

--  作者：有点蓝
--  发布时间：2021/7/26 14:37:00
--
weui没有这种功能