麻烦老师帮我看看 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编辑过]
加好友 
发短信
Post By：2021/1/23 17:35:00 [显示全部帖子]
