以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137903)

--  作者:TINOOOOOOOO
--  发布时间: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
--  
出错的代码和上面的代码没有关系。贴出有问题的代码看看
--  作者:TINOOOOOOOO
--  发布时间: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

--  作者:TINOOOOOOOO
--  发布时间: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
--  
做个例子发上来测试