实在搞不懂了，关于这段代码执行不出来，参照例子写的 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

HTML部分的：

With wb.AddInputGroup("f1", "ipg1", "违规人员信息")
'        .AddInput("违规日期", "违规日期:", "date")
'        .AddInput("违规时间", "违规时间:", "time").Value = Format(date.Now,"HH:MM")
        .AddSelect("角色", "角色:", DataTables("用户表").SQLGetComboListString("用户分组")) .Attribute = """   
        .AddSelect("组别", "组别:", "").Attribute = """
        .AddSelect("姓名", "姓名:", "").Attribute = "" '调用js函数
        .AddInput("Sys", "ID:", "text")
         .AddInput("停用", "停用:", "text")

End With

自动输入ID.htm 的代码

Dim e As RequestEventArgs = args(0) 'RequestEventArgs是HttpRequest事件的e参数类型。
Dim dr As DataRow = DataTables("用户表").SQLFind("用户分组='" & e.Values("角色") & "' and 部门='" & e.values("组别") & "' and 姓名='" & e.values("姓名") & "'")
If dr IsNot Nothing Then
    e.WriteString(dr("SysId") & "|" & dr("停用"))
End If

JS部分的:

function setCodes(){

var result= submitAjaxFileds('自动输入ID.htm','','角色','组别','姓名','',false);

alert(result);

if(result){

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

if(vals.length==2){

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

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

}

跟踪完了，可以正确返回result,但是无法给"Sys"和"停用"赋值，看了控制台，如下错误

此主题相关图片如下：1667335404233.jpg

显示vals[0];处错误，我是用例子复制的，不可能啊，实在搞不懂哪出了问题

[此贴子已经被作者于2022/11/2 4:49:26编辑过]

主题：实在搞不懂了，关于这段代码执行不出来，参照例子写的