关于weui我想实现这么个效果。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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;
}

主题：关于weui我想实现这么个效果。