主题：文字显示

    Dim nms() As String=  {"家庭住址","户口地址","联系电话","留守情况","健康状况","贫困建档","学籍号","邮政编码","户口性质","民族","政治面貌","监护人姓名","就读方式","父亲姓名","母亲姓名","学籍号"}
        For Each nm As String In nms
            If e.PostValues.ContainsKey(nm)
                pr(nm)=trim(e.postvalues(nm))
            End If
        Next
    End If
    messagebox.show("没问题1")
    messagebox.show(pr("姓名"))
messagebox.show("没问题2")
    If e.PostValues.ContainsKey("bw1")
messagebox.show("没问题3")
        pr("审核锁定")=True
        pr("提请审核")=True
        pr("备注")="同学:你的信息审核通过,已锁定学生修改"
    End If