以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于weui我想实现这么个效果。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169666)
--  作者：有点蓝
--  发布时间：2021/6/25 10:47:00
--  
参考：http://www.foxtable.com/mobilehelp/topics/0080.htm
--  作者：liufucan
--  发布时间：2021/6/25 11:09:00
--  
好像只能跟编辑一样在链接里传递id，当然你也可以自己写js函数传递
[此贴子已经被作者于2021/6/25 11:14:13编辑过]
--  作者：有点蓝
--  发布时间：2021/6/25 11:14:00
--  
Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        With wb.AddDialog("","dlg1", "提示","您的订单正在派送,请注意查收!")
            .AddButton("btnOK","确定","edit.htm")
        End With
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com") \'超链接
            With .Add("pn2","标题二",txt,"./images/search.png") \'带子链接
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("<a onclick=""show(\'dlg1\')"" style=\'color:blue\'>|其他信息</a>","")
            End With
        End With

        e.WriteString(wb.Build) \'生成网页
End Select
[此贴子已经被作者于2021/6/25 11:14:11编辑过]
--  作者：flashman
--  发布时间：2021/6/25 11:21:00
--  
        With .Add("pn2",dr(cl1),strr,icon) \'带子链接
            .AddFoot(dr(cl3))
            .AddFoot("|详细","detail.htm?page=" & pgname & "&iden=" & dr(pk))
            .AddFoot("|编辑","edit.htm?page=" & pgname & "&iden=" & dr(pk))
            .AddFoot("|删除","#")Attribute ="""
        End With
    Next
End With

With wb.AddDialog("","dlg2", "删除确认","您确定要删除当前记录吗?")
    .AddButton("btnCancel","取消").Kind = 1
    .AddButton("btnOK","确定","./delete.htm?id=" & dr(pk))
End With

==========不过，我推荐使用帮助里的方法：使用js函数=====
http://www.foxtable.com/mobilehelp/topics/0128.htm

1、list函数
\'设计菜单
With wb.AddActionSheet("","menu")
    .Add("mnudAdd", "增加订单").Attribute="" \'调用js函数
    .Add("mnuEdit", "编辑订单").Attribute =""
    .Add("mnuDelete", "删除订单").Attribute ="""
    .Add("mnuFirst","第一页","List.htm?page=0",True)
    .Add("mnuLast","最末页","List.htm?page=" & pages - 1)
    .Add("mnuCancel","取消","",True)
End With
With wb.AddDialog("","dlg1", "删除确认","您确定要删除当前订单吗?")
    .AddButton("btnCancel","取消").Kind = 1
    .AddButton("btnOK","确定").Attribute = ""
End With

2、js文件的del函数

del函数的代码为：

function del(){
   location="list.htm?page=" + table1.pagenumber + "&deloid=" + table1.primarykey; 
}