专家坐堂-submitAjaxFileds返回值为空Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim e As RequestEventArgs = Args(0)

Dim wb As New weui

Select Case e.Path

Case "answer.htm"

\'\'\'\'--------------------定义两个页面

With wb.AddTabBar("", "tb1", 1)

.AddPage("page1","收令回复","./images/001.png")

.AddPage("page2","消令回复","./images/002.png")

End With

\'\'\'--------------------------\'指定第一个页面接收表单数据的的页面为handle.htm

wb.AddForm("page1","form1","answer.htm")

With wb.AddInputGroup("form1","ipg1","作业命令")

.AddHidenValue("_Identify","123")

.AddHidenValue("OneDate","123")

.AddInput("受令处所","受令处所","text")

.AddInput("命令号","命令号","text")

.AddInput("工作票号","工作票号","text")

.AddInput("停电馈线","停电馈线","text")

.AddInput("发令时间","发令时间","text")

.AddInput("完成时间","完成时间","text")

End With

With wb.AddInputGroup("form1","ipg2","命令内容")

.AddTextArea("命令内容",4)

End With

With wb.AddButtonGroup("form1","btg2",False)

With .Add("btn3", "上一条", "button")

.Value = "btn3"

.Attribute = ""

End With

With .Add("btn4","下一条","button")

.Value = "btn4"

.Attribute =""

End With

With wb.AddButtonGroup("form1","btg1",False)

With .Add("btn1", "收令回复", "submit")

.Kind = 1

.Attribute= ""

End With

wb.AppendHTML("<script src=\'/lib/myjax.js\'></script>") \'引入脚本文件

e.WriteString(wb.Build)

Case "upPage.htm"

Dim cookName As String = DecryptText(e.Cookies("username"),"wls123","wls123")

Dim str As String = ""

If e.PostValues.ContainsKey("btn4") Then

If e.PostValues("_Identify") = ""

Dim dr As DataRow = DataTables("接触网作业命令").SQLFind("受令人 = \'" & cookName & "\' And CreateTime > Date.Now.AddDays(-10) And Status =" & 4,"CreateTime DESC",0)

If dr IsNot Nothing Then

Else

str = "IsNothing"

End If

Else

Dim dr As DataRow = DataTables("接触网作业命令").SQLFind("受令人 = \'" & cookName & "\' And CreateTime < \'" & e.Values("OneDate") & "\' And Status =" & 4,"CreateTime DESC",0)

If dr IsNot Nothing Then

End If

e.WriteString(str)

End If

End Select

function upPage(){

var result = submitAjaxFileds(\'upPage.htm\',\'\',\'_Identify\',\'OneDate\',false);

alert(result)

if (result) {

var vals = result.split("|");

document.getElementById("_Identify").value=vals[0];

document.getElementById("OneDate").value=vals[1];

document.getElementById("受令处所").value=vals[2];

document.getElementById("命令号").value=vals[3];

document.getElementById("工作票号").value=vals[4];

document.getElementById("停电馈线").value=vals[5];

document.getElementById("发令时间").value=vals[6];

document.getElementById("完成时间").value=vals[7];

document.getElementById("命令内容").value=vals[8];

}

else {

//if(result=="IsNothing")

//show(\'dlg3\');

}