Access交流中心

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

希望哪位高手指點:

零落成泥  发表于:2009-05-18 14:59:15  
复制

不久前在這個網站內看到一個非常不錯的列表框查詢的例子,覺得在數據庫中的實用性很大,可是我照著它依胡芦畫瓢時確發現了問題,怎麽也做不了來,原來是我的數據源的問題.因為例子中的數據源只來自一個表(見附件中的"設備表"),且用於做查詢條件的字須都是文本的字段.而我的數據源表(原料表)還設及到另兩個表(供應商表和類別表,見附件).所以只好到這裏來求助來了,希望那位高人能照著他的樣子改一下數據源幫我做個例子.則感激不盡.先謝謝了!点击下载此附件

 

Top
蒋元根 发表于:2009-05-18 16:53:19
给你修改了,新增加了一个查询,再把这查询作为查询2的来源,供参考点击下载此附件

零落成泥 发表于:2009-05-18 18:32:38

萬分感謝!!!!!!!!!!!!!!!!!!



零落成泥 发表于:2009-05-19 11:24:58
蔣老師;非常謝謝你給的該當方法,我已經把它用在了我的數據庫中,效果很好,根據你這個思路我想再在上面的查詢條件中再增加一個條件"單價",它的數據源能不能自義成這樣:如:<=10,10<=30,30<=50,50<=70,70<=90,90<=110,及>100的.用它來查詢各種原料的單價.你看能做嗎?在代碼該如何增加這個條件的代碼?謝謝!

蒋元根 发表于:2009-05-19 17:16:13
你好!不用谢!用了几个小时的时间,修改一下,单价: IIf([原料表]![UnitsPrice]<=10,"<=10",IIf([原料表]![UnitsPrice]>10 And [原料表]![UnitsPrice]<=30,">10<=30",IIf([原料表]![UnitsPrice]>30 And [原料表]![UnitsPrice]<=50,">30<=50",IIf([原料表]![UnitsPrice]>50 And [原料表]![UnitsPrice]<=70,">50<=70",IIf([原料表]![UnitsPrice]>70 And [原料表]![UnitsPrice]<=90,">70<=90",IIf([原料表]![UnitsPrice]>90 And [原料表]![UnitsPrice]<=110,">90<=110",">110")))))),供参考点击下载此附件

零落成泥 发表于:2009-05-19 18:53:59
擔誤了您不少時間,真不好意思,由於我是剛接觸ACCESS不久,只好一邊學一邊用,自己還沒有能力做出像樣的東西來,只好借你們的現成的東西,讓您見笑了.

零落成泥 发表于:2009-05-19 19:03:24

咦!附件中怎麽沒有修改後有加入"單價"做查詢條件的功能呢?

 

 



蒋元根 发表于:2009-05-19 20:06:59

已经加入了,请再仔细看一下,单价列表框: <=10,>10<=30,>30<=50,>50<=70,>70<=90,>90<=110,>110,是在查询中间增加了单价的查询;在窗体上增加了单价列表框;在代码中间增加了:

  If Me.单价.ItemsSelected.Count > 0 Then
        Set ctl = Me.单价
        strWhere = ""
        For Each varI In ctl.ItemsSelected
            strWhere = strWhere & "'" & ctl.Column(0, varI) & "',"
        Next
        strSQl = strSQl & " And 单价 in (" & strWhere & ")  "
    End If



零落成泥 发表于:2009-05-19 20:41:02
謝謝!勞您費心了.

零落成泥 发表于:2009-05-21 11:23:41
蔣老師:我再向你請教一個問題,我想在系統打開後屏敝掉"功能列表",使用自已做的一些功能列表,該如何做才行?

蒋元根 发表于:2009-05-22 20:11:02
对不起,不太清楚你的问题的解决方法,请其他老师帮助看看

豆豆 发表于:2009-05-23 09:28:38

[功能列表],是不是系统菜单?

如果要去掉系统菜单,在启动项中,默认菜单改为你制定的菜单即可。

 



零落成泥 发表于:2009-05-24 17:23:56
謝謝!不好意思,是我沒說清楚,因為我老板是香港人,我們廠電腦系統全是繁體版,其中的工具叫法和簡體版是有很多不一樣,功能列表就是系統菜單.我已經找到一種辦法解決了,再次感謝您.

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