以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老师帮帮忙  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44655)
--  作者：yuyu060712
--  发布时间：2014/1/6 11:44:00
--  老师帮帮忙

我想实现：1.在窗口查询工票编号的时候，返回的是这个编号对应的集合（这个编号对应的部件图号的全部值）并选定这一行。2.我用部件图号查询出来的值，在工票编号输入一个值，比如3N-1356 然后升序序列填充，系统的序列填充要输入2个号才可以，请老师帮帮忙

刚列子传错了...

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table

[此贴子已经被作者于2014-1-6 14:06:06编辑过]
--  作者：Bin
--  发布时间：2014/1/6 11:54:00
--  
例子没有任何数据,窗口的设计也没办法知道你想如何实现.

你的问题思路如下
1.利用select 即可找到所有的行,你具体想怎么操作,根据自身需求做即可.http://www.foxtable.com/help/topics/0400.htm
2.没看懂.
--  作者：yuyu060712
--  发布时间：2014/1/6 11:58:00
--  
老师，第二个列子
--  作者：Bin
--  发布时间：2014/1/6 12:02:00
--  
第二个问题还是没看懂
--  作者：yuyu060712
--  发布时间：2014/1/6 12:40:00
--  

Dim gpbh As WinForm.TextBox = e.Form.Controls("工票编号")
Tables("表B").Filter ="工票编号 like \'*" & gpbh.Text & "*\'"

这个是查询代码，想要的结果是：获取这个工票编号对应部件图号，然后查询出来

第二个问题：就是一个系列填充问题，我想要的就是只输入一个数，然后升序填充
--  作者：yuyu060712
--  发布时间：2014/1/6 13:45:00
--  
哪个高手帮帮忙啊
--  作者：yuyu060712
--  发布时间：2014/1/6 14:14:00
--  

Dim gpbh As WinForm.TextBox = e.Form.Controls("工票编号")\'定义工票编号
Dim bjth As String  = "部件图号" \'定义部件图号
bjth = DataTables("表B").GetComboListString("部件图号","工票编号 = \'" &  gpbh.Text &"\'")\'获取工票编号的部件图号值
Tables("表B").Filter ="部件图号 Like \'*" & bjth.Text & "*\'"

老师们帮忙看看代码错误，是不是思路没对
--  作者：Bin
--  发布时间：2014/1/6 14:16:00
--  
.
[此贴子已经被作者于2014-1-6 14:18:37编辑过]
--  作者：Bin
--  发布时间：2014/1/6 14:22:00
--  
首先你bjth是String类型,何来的.Text 属性?
其次GetComboListString参考帮助http://www.foxtable.com/help/topics/0925.htm获取出来的结果是类似如下
"计算机|打印机|传真机|电话机"
那你这样拼接的结果岂不是 Tables("表B").Filter ="部件图号 Like \'*计算机|打印机|传真机|电话机*\'"  ?

如果你是想筛选所有项目,应该把值按 "|" 分割,然后循环拼接 
Dim ids As String
    For Each dr As string In bjth.split("|")
        ids = ids & ",\'" & dr & "\'"
    Next
    ids= ids.Trim(",")
    Tables("表B").Filter = "部件图号  In (" & ids & ")"
End If
--  作者：yuyu060712
--  发布时间：2014/1/6 14:40:00
--  

谢谢老师，系列填充编号再帮帮忙