以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  第一课的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=30949)

--  作者:陨石袭海
--  发布时间:2013/4/7 14:56:00
--  第一课的问题

过滤出的数量应该少于总的数量,可我过滤后的数字反而变大;

清空查询条件后再查询总的数量变得更大?


--  作者:狐狸爸爸
--  发布时间:2013/4/7 14:57:00
--  

纸上不谈兵,请做个例子发上来,然后说明遇到的问题,我们帮您看看。


--  作者:陨石袭海
--  发布时间:2013/4/7 15:03:00
--  如何发图?
如何发图?我把图贴在Word文档上,可被告知格式不对。
--  作者:陨石袭海
--  发布时间:2013/4/7 15:11:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:导入后的总数是106个.gif
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:输入查询条件后查询却有115个.gif
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:清空查询条件恢复初始状态反而变成318个。.gif
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2013/4/7 15:13:00
--  
最好把例子发出来. 看图目测有可能是导入的时候是已经经过筛选的了.或者是隐藏了部分行
--  作者:陨石袭海
--  发布时间:2013/4/7 15:13:00
--  

按钮:料号查询的代码:

Dim cj As WinForm.ComboBox = e.Form.Controls("厂家")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("物料名称")
Dim wlbh As WinForm.TextBox = e.Form.Controls("物料编号")
Dim xhgg As WinForm.TextBox = e.Form.Controls("型号规格")

Tables("物料信息").Filter="供货厂家 = \'" & cj.Text & "\' and 物料名称 = \'"& wlmc.Text & "\' and 物料编号 like \'*" & wlbh.Text & "*\' and 型号规格 like \'*" & xhgg.Text & "*\'"

 

按钮:清空的代码

Dim cj As WinForm.ComboBox = e.Form.Controls("厂家")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("物料名称")
Dim wlbh As WinForm.TextBox = e.Form.Controls("物料编号")
Dim xhgg As WinForm.TextBox = e.Form.Controls("型号规格")


cj.Text = ""
wlmc.Text = ""
wlbh.Text = ""
xhgg.Text = ""

Tables("物料信息").Filter = ""


--  作者:Bin
--  发布时间:2013/4/7 15:16:00
--  
你原本总数是不是就有318个
--  作者:陨石袭海
--  发布时间:2013/4/7 15:58:00
--  
106个
--  作者:Bin
--  发布时间:2013/4/7 16:04:00
--  
发例子吧.我估计你可能在某个事件里写了加载的代码.然后你执行的操作都触发了加载. 2个步骤额外加载了2次 所以你行数是原来的3倍  318条记录..最好把项目发出来. 或者你操作多几次.看看是不是数据一直这样翻倍.如果是说明证实了我的猜想,检查一下代码就好了.
--  作者:陨石袭海
--  发布时间:2013/4/7 16:10:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:第一课.table