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

调试一下

Case "getCodes.htm" '

msgbox(e.Values("工程代号"))

Dim dr As DataRow = DataTables("工程信息").Find("工程代号='" & e.Values("工程代号") & "'")

If dr IsNot Nothing Then

msgbox(dr("工程名称"))

End If

js文件代码：

function setCodes(){

var result= submitAjaxFileds('getCodes.htm','','工程代号',false);

alert(result);

……

alert(result);是用来做调试的，相当于foxtable的messagebox提示框

function setCodes(){

var result= submitAjaxFileds('getCodes.htm','','工程代号',false);

alert(result); //看弹出什么内容

if(result){

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

if(vals.length==8){

document.getElementById("工程名称").value=vals[0];

document.getElementById("委托单位").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];

}

可能js文件编码问题。不要使用记事本编辑js文件，最好下载一些专业的编辑器，如vscode、editplus等等程序新建文件编辑

把js文件，和实例打包上传：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

上传的项目不对，请重新上传

没有引用js文件：http://www.foxtable.com/mobilehelp/topics/0061.htm

Dim wb As New weui

Dim e As RequestEventArgs = args(0)

If e.PostValues.Count = 0 Then

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

With wb.AddInputGroup("form1","ipg1","工程信息")

With .Addinput("工程代号","工程代号","") '前一个"工程代号"是ID,后一个"工程代号"是标题

.Attribute = "onchange='setCodes()'" '调用js函数

End With

.AddInput("工程名称","工程名称","Text")

.AddInput("委托单位","委托单位","Text")

.AddInput("建设单位","建设单位","Text")

.AddInput("施工单位","施工单位","Text")

.AddInput("设计单位","设计单位","Text")

.AddInput("监理单位","监理单位","Text")

.AddInput("见证单位","见证单位","Text")

.AddInput("见证人","见证人","Text")

.AddInput("结构实体混凝土生产企业","混凝土生产企业","Text")

.AddSelect("结构实体混凝土输送方式","混凝土输送方式","泵送|其他")

.AddInput("施工现场联系人","施工现场联系人","Text")

.AddInput("联系电话","联系电话","number")

End With

With wb.AddInputGroup("form1","ipg2","检测信息")

.AddSelect("检测原因","检测原因","结构实体抽测|冬期施工|试块评定不合格|监督抽检|其他 ") '前一个"工程代号"是ID,后一个"工程代号"是标题

.AddInput("检测部位","检测部位","Text")

.AddInput("检测数量","检测数量","Text")

.AddSelect("检验类别","检验类别","见证检验|委托检验|其他")

.AddSelect("检测项目","检测项目","回弹法检测混凝土抗压强度|其他")

.AddInput("检测依据","检测依据","Text")

.AddInput("检测备注","备注","Text")

End With

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

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

End With

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

e.WriteString(wb.Build)

[此贴子已经被作者于2020/9/7 14:32:08编辑过]

没有调用js函数，之前的代码被论坛屏蔽了

  With .AddInput("工程代号","工程代号","")
                .Attribute = "onchange='setCodes()'" '调用js函数
            End With

我测试没有问题

输入001，离开输入焦点，点击其它。去掉服务端的调试代码

主题：[求助]