移动开发自动输入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

移动开发中用WeUI框架

目的:在输入订单编号后,自动提取产品名称与订单数量.现在没反应请老师看下问题在哪?

ajaxform.js 文件代码如下

function setCodes(){

var result= submitAjaxFileds('getCodes.htm','','订单编号',false);

if(result){

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

if(vals.length==2){

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

document.getElementById("订单数量").value=vals[1];

}

HttpRequest事件代码:

Select Case e.Path

Case "list.htm",""

Functions.Execute("List",e)

Case "addnew.htm"

Functions.Execute("AddNew",e)

Case "edit.htm"

Functions.Execute("Edit",e)

Case "delete.htm"

Functions.Execute("Delete",e)

Case "getCodes.htm" '获取产品名称自动输入用

Functions.Execute("getCodes",e)

End Select

页面定义了内部函数 getCodes

Dim e As RequestEventArgs = args(0)

Dim dr As DataRow = DataTables("订单表").SQLFind("订单表序号='R" & e.Values("province") & "'")

If dr IsNot Nothing Then

e.WriteString(dr("产品名称") & "|" & dr("订单数量"))

End If

页面定义了内部函数 AddNew

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

If e.PostValues.Count = 0 Then '生成增加订单网页

wb.AddForm("","form1","addnew.htm")

With wb.AddInputGroup("form1","ipg1","增加报表")

Dim gjs1 As List(of String) = DataTables("员工资料表").GetValues("姓名","绩效工资= true","部门 desc")

.AddSelect("姓名","姓名","|" & String.Join("|",gjs1.ToArray))'.Attribute = "" '调用js函数.

Dim gjs As List(of String) = DataTables("员工资料表").GetValues("设备","排计划= true","序号")

.AddSelect("机台","机台","|" & String.Join("|",gjs.ToArray))'.Attribute = "" '调用js函数.

.AddInput("订单编号","订单编号R","number") .Attribute = "" '调用js函数

.AddInput("产品","产品","text") ' 要自动输入产品名称用于核对现在不自动填入

.AddInput("订单数量","订单数量","number") '要自动输入订单数量用于提示现在不自动填入

.AddInput("工序","工序","text")

.AddInput("机器时间","机器时间","time")

.AddInput("单次数量生产","单次数量生产","number")

.AddInput("起始时间","起始时间","datetime-local")

.AddInput("结束时间","结束时间","datetime-local")

.AddInput("实际产量","实际产量","number")

'.AddInput("单价","单价","number").Step="0.01"

'.AddInput("日期","日期","date")

End With

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

.Add("btn1", "确定", "submit")

End With

Else '保存新增的订单

Dim dr As DataRow = DataTables("生产日报表").AddNew()

Dim nms() As String = {"姓名","机台","订单编号","工序","机器时间","单次数量生产","起始时间","结束时间","实际产量"}

For Each nm As String In nms

dr(nm) = e.PostValues(nm)

dr.Save()

With wb.AddMsgPage("","msgpage","增加成功", "谢谢提交,请领取打印标签") '增加订单成功提示信息

.AddButton("btn1","继续增加","addnew.htm")

.AddButton("btn1","返回列表","list.htm")

End With

End If

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

e.WriteString(wb.Build) '生成网页

主题：移动开发自动输入问题