- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 麻烦老师帮我看看 web为什么会议列表信息没有显示出来呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160183)
-- 发布时间：2021/1/23 17:35:00
-- 麻烦老师帮我看看 web为什么会议列表信息没有显示出来呢？
麻烦老师帮我看看 web为什么会议列表信息没有显示出来呢？
代码如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim PageNumber As Integer = e.GetValues("page")
Dim PrimaryKey As Integer = e.GetValues("key")
Dim PageURL = "gethuiyiList.htm?page=" & PageNumber & "&key=" & PrimaryKey
Dim cmd11 As New SQ LCommand
cmd11.Connection Name = "sql"
cmd11.Comm andText = "sele ct * from {会议列表} "
MessageBox.Show(cmd11.CommandText)
Dim dr1 As DataTable = cmd11.ExecuteReader
Dim dr As DataRow = dr1.SQLFind("[_Identify]=" & PrimaryKey)
If e.PostValues.Count = 0 Then \'生成编辑页面
If dr IsNot Nothing Then
wb.AddPageTitle("","ph1","会议列表")
wb.AddForm("","form1","gethuiyi.htm?key=" & PrimaryKey & "&page=" & PageNumber)
With wb.AddInputGroup("form1","ipg1","会议信息")
.AddInput("会议编号","会议编号","text").Value = dr("会议编号")
With wb.AddInputGroup("form1","ipg2","会议主题")
With .AddTextArea("yq",1)
.Readonly=True
.Value= dr("会议主题")
End With
End With
With wb.AddInputGroup("form1","ipg3","会议议程")
With .AddTextArea("bz",8)
.Readonly=True
.Value= dr("会议议程")
End With
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>",True)
wb.AppendHTML("<script>document.getElementById(\'btn1\').disabled=true;document.getElementById(\'btn1\').style.backgroundColor = \'#b2b2b2\';var cnt = 60;setTimeout(countDown,1000);</script>")
e.WriteString(wb.Build) \'生成网页
End If
Else
With wb.AddMsgPage("","btg2","学习成功", "好好学习,天天向上") \'生成成功提示页
.AddButton("btn11","继续学习","gethuiyilist.htm")
.AddButton("btn22","返回首页","default.htm")
End With
e.WriteString(wb.Build)
End If
此主题相关图片如下：12121.gif
[此贴子已经被作者于2021/1/23 17:38:13编辑过]
-- 发布时间：2021/1/23 17:40:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim PageNumber As Integer = e.GetValues("page")
msgbox(PageNumber )
Dim PrimaryKey As Integer = e.GetValues("key")
msgbox(PrimaryKey )
Dim PageURL = "gethuiyiList.htm?page=" & PageNumber & "&key=" & PrimaryKey
Dim cmd11 As New SQ LCommand
cmd11.Connection Name = "sql"
cmd11.Comm andText = "sele ct * from {会议列表} "
MessageBox.Show(cmd11.CommandText)
Dim dr1 As DataTable = cmd11.ExecuteReader
Dim dr As DataRow = dr1.SQLFind("[_Identify]=" & PrimaryKey)
msgbox(e.PostValues.Count)
If e.PostValues.Count = 0 Then \'生成编辑页面
msgbox(dr IsNot Nothing)
If dr IsNot Nothing Then
wb.AddPageTitle("","ph1","会议列表")
-- 发布时间：2021/1/23 18:03:00
-- 回复：（有点蓝）Dim e As RequestEventArgs = args(0...
系统不弹出任何提示 页面一片空白 在内部函数gethuiyi中 addhuiyi gethuiyilist都可以正常显示数据
从gethuiyilist会议列表中点击了解会议打开gethuiyi就是一片空白 麻烦老师看看
以下内容是专门发给有点蓝浏览
以下内容是专门发给有点蓝浏览
js代码
function gethuiyilist(){
location="gethuiyi.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey;
}
function gethuiyi(){
location="gethuiyi.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey;
show("table1.primarykey");
}
-- 发布时间：2021/1/25 0:41:00
-- 回复：（有点蓝）Dim e As RequestEventArgs = args(0...
麻烦有点蓝老师 帮忙看看 谢谢！
-- 发布时间：2021/1/25 8:42:00
--
http://www.foxtable.com/mobilehelp/topics/278.htm
异步函数代码结构为：
Dim e As RequestEventArgs = args(0)
\'生成网页
\'...
\'发送网页
e.Handled = True \'通知系统异步函数执行完毕,可以关闭信道
-- 发布时间：2021/1/25 8:56:00
--
2、httprequest没有gethuiyi.htm这个网页的入口
3、没有dynaActiveSheet这个函数http://www.foxtable.com/mobilehelp/topics/0147.htm
-- 发布时间：2021/1/25 19:38:00
-- 回复：（有点蓝）2、httprequest没有gethuiyi.htm这个...
谢谢老师