移动端开发怎么实现查询到姓名并将该姓名相关的多条记录一并显示到筛选结果页面呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动端开发怎么实现查询到姓名并将该姓名相关的多条记录一并显示到筛选结果页面呢？

共有2451人关注过本帖树形打印复制链接主题：移动端开发怎么实现查询到姓名并将该姓名相关的多条记录一并显示到筛选结果页面呢？

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/9 21:13:00 [显示全部帖子]

If e.PostValues.ContainsKey("户主姓名") Then

If flt > "" Then

flt = flt & " or "

End If

flt = flt & "[姓名] = '" & e.PostValues("户主姓名") & "'"

End If

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/13 10:08:00 [显示全部帖子]

先设置条件为【户主='张三'】，使用SQLcommand到数据库里查询是否有户主为张三的数据，如果有就直接使用这个条件获取表格数据即可；

如果没有户主为张三的数据，再根据姓名='张三'，查询有没有数据，如果没有就提示没有数据返回；如果有就获取户主姓名，如张二，重新设置条件为【户主='张二'】，然后使用这个条件获取表格数据

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/13 15:05:00 [显示全部帖子]

比如

Dim xm As String = "张三"

Dim filter As String = ""

If DataTables("常住人口").sqlfind("户主姓名='" & xm & "'") IsNot Nothing Then

filter = "户主姓名='" & xm & "'"

Else

Dim dr As DataRow = DataTables("常住人口").sqlfind("姓名='" & xm & "'")

If dr IsNot Nothing Then

filter = "户主姓名='" & dr("户主姓名") & "'"

Else

‘返回错误提示,如：http://www.foxtable.com/mobilehelp/topics/0058.htm

return

End If

msgbox(filter )

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/17 23:17:00 [显示全部帖子]

Dim flt As String=""

If e.PostValues.ContainsKey("所属社区") Then

flt = "[所属社区] = '" & e.PostValues("所属社区") & "'"

End If

If e.PostValues.ContainsKey("分组名称") Then

If flt > "" Then

flt = flt & " and "

End If

flt = 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("户主姓名") & "'"

End If

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107757 积分：548124 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/18 8:49:00 [显示全部帖子]

示例

HttpRequest事件代码：

Select Case e.Path
    Case "test.htm"
        Dim wb As new WeUI
        With wb.AddMsgPage("","msgpage","操作完成","内容详情,可根据实际需要安排")
            .AddButton("btn1","确定")
            .AddButton("btn2","取消").kind = 1
            .AddExtra("详细信息","http://www.foxtable.com/")
        End With
        e.WriteString(wb.Build) '生成网页
End Select

下一主题 >> << 上一主题

主题：移动端开发 怎么实现查询到姓名并将该姓名相关的多条记录一并显示到筛选结果页面呢？

主题：移动端开发怎么实现查询到姓名并将该姓名相关的多条记录一并显示到筛选结果页面呢？