控件名称不正确
With wb.AddInputGroup("form1","ipg123","学生信息筛选")
.AddSelect("学校","所在学校","|" & dt1.sqlGetComboListString("学校"))
前面的学校才是控件名称，所在学校是标题名称
If e.PostValues.ContainsKey("学校") Then
flt = "[学校] = '" & e.PostValues("学校") & "'"
End If
---------------------
If e.PostValues.ContainsKey("登记姓名") Then
Dim xm As String = e.PostValues("登记姓名")
If DataTables("学生信息登记").sqlfind("学生姓名='" & xm & "'") IsNot Nothing Then
If flt > "" Then
flt = flt & " and "
End If
flt = flt & "[学生姓名] = '" & xm & "'"
Else
Dim dr As DataRow = DataTables("学生信息登记").sqlfind("亲属姓名='" & xm & "'")
If dr IsNot Nothing Then
If flt > "" Then
flt = flt & " and "
End If
flt = flt & "[学生姓名]='" & dr("学生姓名") & "'"
Else
With wb.AddMsgPage("","msgpage","查询失败","数据为空!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
return ""
End If
End If
End If
……
加好友 
发短信
Post By：2020/2/20 9:20:00 [显示全部帖子]
