以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  实现窗口中宽带帐号输入后动查询某表的记录并显示在窗口的表中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96321)

--  作者:abc2363360
--  发布时间:2017/2/17 17:35:00
--  实现窗口中宽带帐号输入后动查询某表的记录并显示在窗口的表中
实现窗口中宽带帐号输入后自动(或点击某按钮后)查询某表的记录并显示在窗口的表中
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170217173440.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/2/17 17:36:10编辑过]

--  作者:有点色
--  发布时间:2017/2/17 17:39:00
--  

1、这个控件,不能绑定表列

 

2、代码写到textchanged事件

 

e.Form.Controls("Table1").Table.Filter = "宽带帐号 like \'%" & e.Sender.Text & "%\'"


--  作者:abc2363360
--  发布时间:2017/2/17 18:09:00
--  填写数据显示下面的表并没有出数据

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170217180904.jpg
图片点击可在新窗口打开查看

--  作者:有点色
--  发布时间:2017/2/17 18:26:00
--  

代码没问题。

 

不要绑定表列。


--  作者:abc2363360
--  发布时间:2017/2/17 20:23:00
--  我的 Table1的类型是SQLQuery 以下代码无效

我的 Table1的类型是SQLQuery   以下代码无效

 

e.Form.Controls("Table1").Table.Filter = "宽带帐号 like \'%" & e.Sender.Text & "%\'"

 

能不能把这个代码修改成SQL后台查询

 

1、这个控件,不能绑定表列      如果不绑定列,怎么把这个txt的内容保存到表中,麻烦为保存按钮点击事件写个代码。

 


--  作者:有点蓝
--  发布时间:2017/2/17 20:47:00
--  


单独放一个用于查询用的文本框,textchanged事件

e.Form.Controls("Table1").Table.DataTable.LoadFilter = "宽带帐号 like \'%" & e.Sender.Text & "%\'"
e.Form.Controls("Table1").Table.DataTable.Load()

--  作者:abc2363360
--  发布时间:2017/2/17 21:34:00
--  刚才这两位大神的代码还是不符合要求,希望大神再帮帮忙,谢谢!
实现窗口中宽带帐号输入后自动(或点击某按钮后)查询后台某表的记录并显示在窗口的table1中,我的 Table1的类型是SQLQuery ,刚才这两位大神的代码还是不符合要求,希望大神再帮帮忙,谢谢!

--  作者:有点蓝
--  发布时间:2017/2/17 22:20:00
--  
上传例子说明
--  作者:abc2363360
--  发布时间:2017/2/17 23:06:00
--  

我的SQL外网访问不了,我现在写了一个例子,但不是SQL数据库的,希望你帮忙写代码时参照SQL后台查询来写。

项目中有一个数据表 4列 姓名,地址,电话,订单号 

项目中有一个窗口1 一个TextBox1 一个 Table1 ;TextBox1绑定了数据表 电话列

 

要实现在TextBox1中输入电话号码后,可以自动在后台SQL数据库中查出该电话号的所有行,并在Table1中显示

 

 我在TextBox1TextChanged事件中写以下代码,不能实现,麻烦看看如何修改!

 

Dim txt As String = e.Form.Controls("TextBox5").Text
 Tables("窗口1_Table1").Fill("S elect * From 数据表 where 电话 = txt ","数据源",True)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:sql后台查询_201702172253.zip


--  作者:有点蓝
--  发布时间:2017/2/17 23:15:00
--  
Tables("窗口1_Table1").Fill("S elect * From 数据表 where 电话 = \'" & txt "\'","数据源",True)