- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]手机网页 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148291)
-- 发布时间：2020/4/4 1:00:00
-- [求助]手机网页
老师，点击手机页面标题后会有一个网页提示，如何在关闭提示后执行 r("已读") = User.Name & "(" & Date.Now & ");" & r("已读")
或者 .Badge = "新" 成为 .Badge = ""
此主题相关图片如下：微信图片_20200404005144.jpg
此主题相关图片如下：微信图片_20200404005144.jpgSelet Case e.Path
Case "tongzhigonggao.htm"
Dim cmd As New SQLCommand
cmd.C \'记得设置数据源名称
cmd.CommandText = "Selct Top 15 * Fro m {通知公告} Order By 日期"
Dim dt As DataTable = cmd.ExecuteReader
With wb.AddPanelGroup("","pg1","通知公告")
For Each r As DataRow In dt.DataRows
Dim s As String = r("已读")
\' .Add("pn1",r("主题"),r("发送人") & " " & r("日期"), "./images/laba.png").Attribute= " & r("内容") & "\')"""
With .Add("pn1",r("主题"),"","./images/laba.png")
If s.Contains(User.Name) = False Then
.Badge = "新"
.AddFoot(r("发送人") & " " & r("日期"))
.Attribute = " & r("内容") & "\')"""
Else
.Badge = ""
.AddFoot(r("发送人") & " " & r("日期"))
.Attribute = " & r("内容") & "\')"""
End If
End With
Next
End With
e.WriteString(wb.Build)
End Selet
[此贴子已经被作者于2020/4/4 1:00:52编辑过]
-- 发布时间：2020/4/5 20:49:00
--
在提示的确定按钮，提交数据并刷新当前页面：http://www.foxtable.com/mobilehelp/topics/0080.htm
With wb.AddDialog("","dlg2", "删除确认","您确定要删除当前记录吗?")
.AddButton("btnOK","确定","./tongzhigonggao.htm")
End With
.AddButton("btnOK","确定","./tongzhigonggao.htm")
End With