Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请各位老师指导下：当前页面中如何在输入电话号码之后，点击查询按钮，然后将查询到的结果显示在当前页面查询按钮之后呢？


  共有3597人关注过本帖树形打印复制链接

主题：请各位老师指导下：当前页面中如何在输入电话号码之后，点击查询按钮，然后将查询到的结果显示在当前页面查询按钮之后呢？
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		请各位老师指导下：当前页面中如何在输入电话号码之后，点击查询按钮，然后将查询到的结果显示在当前页面查询按钮之后呢？  发帖心情 Post By：2021/9/2 16:10:00 [显示全部帖子]

请各位老师指导下：当前页面中如何在输入电话号码之后，点击查询按钮，然后将查询到的结果显示在当前页面查询按钮之后呢？

图片点击可在新窗口打开查看此主题相关图片如下：123.png
图片点击可在新窗口打开查看

当前页面代码如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
wb.AddForm("","form1","shaixuan.htm")
Dim ip As object
With wb.AddInputGroup("form1","ipg1","资料查询")
    ip = .AddInput("bh","联系电话","text")
End With

With wb.AddButtonGroup("form1","btg1",False)
    .Add("btn1", "查询", "submit")
    .Add("btn3", "退出", "button","logon.htm")
End With
e.WriteString(wb.Build)
Dim bh As String '联系电话
Dim dr As DataRow '当前数据
Dim name As String = e.Cookies("username") '用户名

Dim cmd As new S QLCommand
cmd.Connection Name = "智慧党建"
cmd.Comm andText= "sel ect 线索描述,举报时间,备注 as 处理情况 From 线索举报 where 联系电话='" & bh & "'"
Dim dt As DataTable = cmd.Execu teReader

If e.PostValues.ContainsKey("bh")  Then '如果包含编号,说明是点击了查询或者审核按钮
    bh = e.PostValues("bh")
    MessageBox.Show(bh)
    dr = dt.sqlFind("联系电话='" & bh & "'") '查询是否有此编号数据
    If dr IsNot Nothing  Then '如果有意见数据,说明是点击审核按钮进来的
        MessageBox.Show("有数据")
    Else
       MessageBox.Show("没有数据")
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）参考这种，使用js处理：http://www.f...  发帖心情 Post By：2021/9/2 20:48:00 [显示全部帖子]

js代码如下
function tongji(){
    var result = submitAjaxForm('form1','',false);
    document.getElementById("p1").innerHTML=result;
}

cx页面代码
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
wb.AppendHTML("<script>" & vars("ajaxform") & "</script>") '引入脚本文件
wb.AddForm("","form1","tongji.htm")
Dim ip As object
With wb.AddInputGroup("form1","ipg1","资料查询")
    ip = .AddInput("联系电话","联系电话","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
    .Add("btn1", "统计", "button").).Attrib ute= "oncl ick= 'tongji()'"
End With
wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的 页面
e.WriteString(wb.Build)
  

tongji页面代码
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.ContainsKey("联系电话") Then
    MessageBox.Show("1")
    Dim b As New CrossTableBuilder("统计表1",DataTables("线索举报"))
    wb.AddTable("","Table1").CreateFromDataTable(b.Build(True))
Else
    wb.InsertHTML("请按输入分组列和统计列!")
End If
e.WriteString(wb.Build)


运行会弹出提示内容1，但是不显示数据，麻烦老师帮忙指导下，谢谢。

需要从线索举报表中查找联系电话符合的线索描述  举报时间  处理情况  三个字段的值 
[此贴子已经被作者于2021/9/2 20:57:18编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04004 秒, 5 次数据查询