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","会议列表")
加好友 
发短信
Post By：2021/1/23 17:40:00 [显示全部帖子]
