.....
Else '保存编辑结果
MessageBox.Show("我执行了")
Dim dr As DataRow = DataTables("学生数").SQLFind("[_Identify]=" & PrimaryKey)
If dr IsNot Nothing Then
Dim nms() As String = {"学生数","年级","班级","班主任","年报人数","在校人数","民族_汉族","民族_少数民族","性别_男","性别_女","住宿生_男","住宿生_女"}
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.Save()
'显示完成提示,2妙手自动返回原来的页面
wb.AppendHtml("<meta http-equiv='refresh' c>",True)
wb.AddToast("","t1", "编辑完成",0).Visible = True
Else
With wb.AddMsgPage("","msgpage","保存失败", "此信息可能已经被删除!") '提示.
.icon= "Warn"
.AddButton("btn1","返回",PageURL) '生成返回原来页面的按钮
End With
End If
MessageBox.show("我生成的页面内容：" & wb.Build)
End If
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2020/3/15 8:13:00 [显示全部帖子]
