你好!不用谢!用了几个小时的时间,修改一下,单价: 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")))))),供参考
点击下载此附件
擔誤了您不少時間,真不好意思,由於我是剛接觸ACCESS不久,只好一邊學一邊用,自己還沒有能力做出像樣的東西來,只好借你們的現成的東西,讓您見笑了.
咦!附件中怎麽沒有修改後有加入"單價"做查詢條件的功能呢?
已经加入了,请再仔细看一下,单价列表框: <=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
謝謝!勞您費心了.
蔣老師:我再向你請教一個問題,我想在系統打開後屏敝掉"功能列表",使用自已做的一些功能列表,該如何做才行?
对不起,不太清楚你的问题的解决方法,请其他老师帮助看看
[功能列表],是不是系统菜单?
如果要去掉系统菜单,在启动项中,默认菜单改为你制定的菜单即可。
謝謝!不好意思,是我沒說清楚,因為我老板是香港人,我們廠電腦系統全是繁體版,其中的工具叫法和簡體版是有很多不一樣,功能列表就是系統菜單.我已經找到一種辦法解決了,再次感謝您.
总记录:12篇 页次:1/1 9 1 :