- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 移动开发 查询页面圈中部分 无法传值 会显示所有数据记录 求解 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146242)
-- 发布时间：2020/2/19 20:08:00
-- 移动开发 查询页面圈中部分 无法传值 会显示所有数据记录 求解
移动开发 查询页面圈中部分 无法传值 会显示所有数据记录 求解
此主题相关图片如下：捕获.png
[此贴子已经被作者于2020/2/19 22:35:10编辑过]
-- 发布时间：2020/2/20 9:20:00
--
无法传值指什么？动态下拉列表？http://www.foxtable.com/mobilehelp/topics/0111.htm
-- 发布时间：2020/2/20 13:39:00
-- 回复：（有点蓝）无法传值指什么？动态下拉列表？http...
圈中的部分 输入数据库表的记录值 无法对应查找出有该记录值的数据，而是显示了所有的记录。
-- 发布时间：2020/2/20 14:05:00
--
控件名称不正确
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
……
-- 发布时间：2020/2/20 19:16:00
-- 回复：（有点蓝）控件名称不正确With wb.AddInputGrou...
有点蓝老师 谢谢
上述页面代码中 不能按照设定的15行数据进行显示 点下一页也没有结果 是不是哪里又不对了
导致菜单中的修改都不能实现
[此贴子已经被作者于2020/2/20 19:24:16编辑过]
-- 发布时间：2020/2/21 8:53:00
--
下一页指定的是list.htm页面，有这个页面吗？有把条件保存下来吗？http://www.foxtable.com/mobilehelp/topics/0116.htm