以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  输入订单号 窗口表格中只列出当前输入的订单  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13038)

--  作者:ruan
--  发布时间:2011/9/25 14:52:00
--  输入订单号 窗口表格中只列出当前输入的订单

输入订单号 窗口表格中只列出当前输入的订单.要直接输入就出来 不用通过筛选

 怎么弄~


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

--  作者:yangming
--  发布时间:2011/9/25 14:58:00
--  

当前输入的订单有多少行啊?如果只是当前光标所在的行,那好办,如果是多行,还得用筛选出来,呵

[此贴子已经被作者于2011-9-25 14:58:25编辑过]

--  作者:ruan
--  发布时间:2011/9/25 15:00:00
--  
有多行是筛选出来 就是不用加筛选按钮 当订单号 输入满足条件时 下表自动列出当前订单号的信息 不显示其他的 不满足条件就不显示
--  作者:yangming
--  发布时间:2011/9/25 15:46:00
--  
在窗口的AfterLoad 事件中加上筛选的代码便可以了,呵
--  作者:狐狸爸爸
--  发布时间:2011/9/25 16:23:00
--  

设计文本框的TextChanged事件,大概如下,自行调整:

 

Tables("表名").Filter = "生产号 = \'" & e.Sender.Text & "\'"


--  作者:ruan
--  发布时间:2011/9/26 9:43:00
--  
当内容为空时就会报错怎么解决...
图片点击可在新窗口打开查看此主题相关图片如下:01.png
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2011/9/26 9:56:00
--  

if e.sender.text >"" then

    Tables("表名").Filter = "生产号 = \'" & e.Sender.Text & "\'"

Else

   Tables("表名").Filter = ""

end if


--  作者:ruan
--  发布时间:2011/9/26 11:53:00
--  

谢谢~