以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取不到值，怎么处理？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133746)
--  作者：YOU
--  发布时间：2019/4/19 14:37:00
--  [求助]获取不到值，怎么处理？
If ipages = "填空题" Then
    If e.PostValues.Count = 0 Then
        wb.AddForm("","form24","")
        With wb.AddInputGroup("form24","ipg1","<label style=\'color:Black;\'>第" & tmid & "题&emsp;共(" & tmid & "/" & zs & ")题</label>&emsp;题目类型&nbsp;&nbsp;<a style=\'color: #5CACEE;\'>[填空题]</a>")
            With .AddTextArea("text")
                .Value = oyi("题目内容")
                .Readonly= True
            End With
        End With
        With wb.AddInputGroup("form24","ipg2","<a style=\'color: #3CB371;\'>填空题回答区:</a>")
            If oyi.IsNull("选项A") = False Then
                .AddInput("xmA","第1个空","text").Placeholder = "请输入第一个答案"
            End If
            If oyi.IsNull("选项B") = False Then
                .AddInput("xmB","第2个空","text").Placeholder = "请输入第二个答案"
            End If
            If oyi.IsNull("选项C") = False Then
                .AddInput("xmC","第3个空","text").Placeholder = "请输入第三个答案"
            End If
            If oyi.IsNull("选项D") = False Then
                .AddInput("xmD","第4个空","text").Placeholder = "请输入第四个答案"
            End If
            If oyi.IsNull("选项E") = False Then
                .AddInput("xmE","第5个空","text").Placeholder = "请输入第五个答案"
            End If
            If oyi.IsNull("选项F") = False Then
                .AddInput("xmF","第6个空","text").Placeholder = "请输入第六个答案"
            End If
        End With
        With wb.AddInputGroup("form24","ipg3","<a style=\'color: #3CB371;\'>已答答案</a>")
            With .AddTextArea("填空答案")
                .Value = oyi("个人选项")
                .Readonly= True
            End With
        End With
        With wb.AddButtonGroup("form24","btngrp1", False)
            If syi IsNot Nothing Then
                .Add("btn1","上一题","","ExercisesNew.htm?page=" & opi & "&stid=" & syi("题目序号") & "&openid=" & er)
            End If
            If xyi IsNot Nothing Then
                .Add("btn3","下一题", "submit") \'提交
            Else
                .Add("btn4", "提交", "submit") \'提交
            End If
            .Add("btn5", "返回课程","","OnlineVideo.htm?page=" & opi )
        End With
    Else
MessageBox.Show(e.PostValues("xmA"))  \'获取录入值为空白怎么处理

        \'Dim diilipok As String = e.PostValues("xmA") & "," & e.PostValues("xmB") & "," & e.PostValues("xmC") & "," & e.PostValues("xmD") & "," & e.PostValues("xmE") & "," & e.PostValues("xmF")
\'MessageBox.Show(diilipok)
    End If
End If
--  作者：YOU
--  发布时间：2019/4/19 14:56:00
--  
求助
--  作者：有点甜
--  发布时间：2019/4/19 15:01:00
--  

我这样测试没问题

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As new WeUI
        If e.PostValues.Count = 0 Then
            wb.AddForm("","form24","/test.htm")
            With wb.AddInputGroup("form24","ipg2","<a style=\'color: #3CB371;\'>填空题回答区:</a>")
                .AddInput("xmA","第1个空","text").Placeholder = "请输入第一个答案"
                .AddInput("xmB","第2个空","text").Placeholder = "请输入第二个答案"
                .AddInput("xmC","第3个空","text").Placeholder = "请输入第三个答案"
            End With
            With wb.AddButtonGroup("form24","btngrp1", False)
                .Add("btn4", "提交", "submit") \'提交
               
               
            End With
           
        Else
           
            MessageBox.Show(e.PostValues("xmA"))  \'获取录入值为空白怎么处理
        End If
        e.WriteString(wb.Build) \'生成网页
End Select
--  作者：YOU
--  发布时间：2019/4/19 15:03:00
--  
       With wb.AddInputGroup("form24","ipg2","<a style=\'color: #3CB371;\'>填空题回答区:</a>")
            If oyi.IsNull("选项A") = False Then
                .AddInput("xmA","第1个空","text").Placeholder = "请输入第一个答案"
            End If
            If oyi.IsNull("选项B") = False Then
                .AddInput("xmB","第2个空","text").Placeholder = "请输入第二个答案"
            End If
            If oyi.IsNull("选项C") = False Then
                .AddInput("xmC","第3个空","text").Placeholder = "请输入第三个答案"
            End If
            If oyi.IsNull("选项D") = False Then
                .AddInput("xmD","第4个空","text").Placeholder = "请输入第四个答案"
            End If
            If oyi.IsNull("选项E") = False Then
                .AddInput("xmE","第5个空","text").Placeholder = "请输入第五个答案"
            End If
            If oyi.IsNull("选项F") = False Then
                .AddInput("xmF","第6个空","text").Placeholder = "请输入第六个答案"
            End If
        End With

加了判断就不行了
--  作者：有点甜
--  发布时间：2019/4/19 15:06:00
--  
认认真真看3楼代码。贴出可以正常测试的代码。