- 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=137903)
-- 发布时间：2019/7/18 10:10:00
-- [求助]
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SE ECT * from 采购订单"
dt = cmd.ExecuteReader()
Select Case e.Path
Case "cvcv.htm"
Dim i As Integer = 0
For Each dr As DataRow In dt.DataRows
With wb.AddPreview("","pv" & i ,"含税金额：",dr("含税金额") & "元")
.AddItem("单据编号",dr("单据编号"))
.AddItem("物料名称",dr("物料名称"))
.AddItem("供应商",dr("供应商"))
.Addbutton("审核", "", 1,)
.Addbutton("单据详细", "", 1, "onc/ick=\'a/ert(""数量:" & dr("数量")& " " &"应采购数量:" & dr("应采购数量") & " " & "单价:" & dr("单价") & " " & "交货日期:" & dr("交货日期") & " " & "金额:" & dr("金额") & " " & """)\'")
End With
i = i + 1
Next
e.WriteString(wb.Build)
End Select
想把这个代码 和 page 结合一下 把 弹出的界面做到 第二个 page里面 遇到的问题是 把按钮的值复制过去 会出现
此主题相关图片如下：1.png
该如何实现 请教老师 谢谢
-- 发布时间：2019/7/18 10:14:00
--
出错的代码和上面的代码没有关系。贴出有问题的代码看看
-- 发布时间：2019/7/18 10:47:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SE ECT * from 采购订单"
dt = cmd.ExecuteReader()
Select Case e.Path
Case "frfr.htm"
wb.AddPage("","page1") \'增加两个page
wb.AddPage("","page2",False) \'第二个
Dim i As Integer = 0
For Each dr As DataRow In dt.DataRows
With wb.AddPreview("","pv" & i ,"含税金额：",dr("含税金额") & "元")
.AddItem("单据编号",dr("单据编号"))
.AddItem("物料名称",dr("物料名称"))
.AddItem("供应商",dr("供应商"))
.Addbutton("btn1", "下一页", "button").Attribute="""
End With
i = i + 1
Next
With wb.AddArticle("page2","ar2")
.AddTitle("h1","关于易表")
.AddContent("易表.net介于电子表格和数据库软件之间，它有类似电子表格的界面，同时又有很多数据库软件特有的功能和灵活性，它能将复杂的操作简单化，让普通用户轻松完成复杂的数据管理和统计分析工作.")
.AddImage("./images/2.gif")
End With
With wb.AddButtonGroup("page2","btg2")
.Add("btn2", "上一页", "button").Attribute="""
End With
e.WriteString(wb.Build) \'生成网页
End Select
-- 发布时间：2019/7/18 11:22:00
--
这个有点不一样，用红色部分的语法：
Addbutton
Addbutton用于在Preview底部增加操作按钮，语法：
Addbutton(Text, Href)
Addbutton(Text, Href, Type)
Addbutton(Text, Href, Type, Attribute)
| Text | 按钮标题 |
| Href | 单击按钮后要跳转到的目标URL。 |
| Type | 可选参数，设置为0按钮文字为灰色，设为1按钮文字为绿色 |
| Attribute | 可选参数，按钮属性。 |
参考：
http://www.foxtable.com/mobilehelp/scr/0085.htm
-- 发布时间：2019/7/19 10:26:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SE ECT * from 采购订单"
dt = cmd.ExecuteReader()
Select Case e.Path
Case "fdfd.htm"
wb.AddPage("","page1") \'增加两个page
wb.AddPage("","page2",False) \'第二个
Dim i As Integer = 0
For Each dr As DataRow In dt.DataRows
With wb.AddPreview("","pv" & i ,"含税金额:",dr("含税金额") & "元")
.AddItem("单据编号",dr("单据编号"))
.AddItem("物料名称",dr("物料名称"))
.AddItem("供应商",dr("供应商"))
.Addbutton("详细","" , 1,""")
End With
i = i + 1
Next
With wb.AddArticle("page2","ar2")
For Each dy As DataRow In dt.DataRows
With wb.AddPreview("ar2","pv1" ,"含税金额:",dy("含税金额") & "元")
.AddItem("单据编号",dy("单据编号"))
.AddItem("物料名称",dy("物料名称"))
.AddItem("供应商",dy("供应商"))
.AddItem("应采购数量",dy("应采购数量"))
.AddItem("数量",dy("数量"))
.AddItem("单价",dy("单价"))
.AddItem("交货日期",dy("交货日期"))
.AddItem("金额",dy("金额"))
.Addbutton("返回", "", 1,""")
End With
Next
End With
e.WriteString(wb.Build) \'生成网页
End Select
大概的意思就是 跳转之后可以显示一个详细的 然后自己替换之后 就显示不出来了 是那些地方要修改一下吗 还会有 跳出page2 page1 还在下半部分的情况 多谢老师解答
-- 发布时间：2019/7/19 10:37:00
--
做个例子发上来测试