Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

怎样同时查询多种物料库存?

xuqian  发表于:2009-02-14 22:26:37  
复制

请问怎样才能同时查询多种物料库存。

如:我想查询QC1~QC100的库存,想批量查询。就是一次性录入QC1~QC100的批号,点击“查询”后,同时显示QC1~QC100的库存量,可以采用什么方法?

谢谢

 

 

Top
ACMAIN.CHM 发表于:2009-02-14 23:59:56
新建一窗体FORM1,FORM1上添加命令按钮 Command0 (查询), 文本框 text1, 输入 QC1,QC2,QC3,QC5 ,以逗号分隔的列表字符串,
再添加一个对应表table1的子窗体,了窗体的控件名为 Child3
 
在command的click事件中如下 。
 
Option Compare Database
Option Explicit


Private Sub Command0_Click()

    Dim sSQL As String
    Dim sInList As String
    sInList = Replace(Me.Text1.Value, ",", "','")      '替换,为 ','  "QC1,QC2,QC3,QC5" -> "QC1','QC2','QC3','QC5"
    sInList = "'" & sInList & "'"                      '两边加单引号,可以和上一句合为一句,但分开以提高可读性。
    
    sSQL = "select * from table1 where batchno in (" & sInList & ")"
    Me.Child3.Form.RecordSource = sSQL
   
End Sub
 
 
 
以上方案已完全实现你的需求说明。
一次性录入QC1~QC100的批号  在文本框你可一次性输入。
点击“查询”后,同时显示QC1~QC100的库存量

问题说明越详细,回答也会越准确!参见如何提问。 提问的智慧


**************
*   一切皆有可能   *
**************



QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase
http://www.accessbbs.cn/bbs/index.php
http://www.accessoft.com/bbs/index.asp
http://www.office-cn.net/vvb/?fromuid=141646
http://www.access-programmers.co.uk/forums

http://www.office-cn.net/home/space.php?uid=141646


总记录:1篇  页次:1/1 9 1 :