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

老师，您好。

开始group是空值，我下拉选择group后，能正常选择name的值；然后再group选择空值时，微信浏览器就卡死了。

这个group值我是可以确定的，但如果不下拉的话，name就没法取到值。

Case "bb.htm" '首页

**********

With wb.AddInputGroup("form1","ipg1","数据查询")

With .AddSelect("group","课室","|" & DataTables("Users").GetComboListString("课室2","部门 = '业务处' and 课室2 = '"& ks2 &"'","课室2 Desc"))

.Attribute = """

End With

.AddSelect("name","姓名","")

.AddInput("startdate","开始时间","date").Value = Format(Date.Today,"yyyy-MM-dd")

.AddInput("enddate","结束时间","date").Value = Format(Date.Today,"yyyy-MM-dd")

End With

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

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

End With

End If

e.WriteString(wb.Build)

Case "x10129_keshi.htm"

Dim vals As String

If e.PostValues.Count = 1 Then

vals = "|" & DataTables("users").GetComboListString("姓名","课室2 = '" & e.PostValues("group") & "'","姓名")

End If

e.WriteString(vals)

判断有没有输入或者选择值。

Case "bb.htm" '首页

wb.AddTopTips("","toptip1","课室/时间不能为空!") '用于显示动态错误提示

wb.AddPageTitle("","ka","数据","***")

wb.AddForm("","form1","x10124_Result.htm").Attribute="o n s u b mit = 'return getkeshi()'" '使用js脚本文件,判断是否按要求输入数据

...

With wb.AddInputGroup("form1","ipg1","数据查询")

With .AddSelect("group","课室","|" & DataTables("Users").GetComboListString("课室2","部门 = '业务处' and 课室2 = '"& ks2 &"'","课室2 Desc"))

.Attribute = """

End With

.AddSelect("name","姓名","")

.AddInput("startdate","开始时间","date").Value = Format(Date.Today,"yyyy-MM-dd")

.AddInput("enddate","结束时间","date").Value = Format(Date.Today,"yyyy-MM-dd")

End With

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

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

End With

End If

e.WriteString(wb.Build)

function getkeshi(){

var v1 = document.getElementById("group").value;

var v2 = document.getElementById("startdate").value;

var v3 = document.getElementById("enddate").value;

if (v1 && v2 && v3){return true}

show("toptip1",2500); //2500毫秒=2.5秒

return false;

}

[此贴子已经被作者于2017/6/10 11:35:52编辑过]

With .AddSelect("group","课室",DataTables("Users").GetComboListString("课室2","部门 = '业务处'","课室2 Desc"))

.Attribute = "o n c h a nge=""setAjaxOptions('name','x10129_keshi.htm','group',false)"""

End With

执行结果：什么数据都没有获得。

老师，通过调试，发现问题出在判断上.

不作判断，就可以正常使用了。

或者加个else，随便弄个不存在的条件，也能正常使用了。

Case "x10129_keshi.htm"

Dim vals As String

If e.PostValues.Count = 1 Then '删除

vals = "|" & DataTables("users").GetComboListString("姓名","课室2 = '" & e.PostValues("group") & "'","姓名")

End If '删除

e.WriteString(vals)

[此贴子已经被作者于2017/6/10 13:37:16编辑过]

主题：setAjaxOptions选择空值为卡死