Office中国论坛/Access中国论坛

标题: [求助]如何在组合框内进行多重选择? [打印本页]

作者: 夜漩苍紫 时间: 2004-4-17 06:47
标题: [求助]如何在组合框内进行多重选择?
[attach]4278[/attach]
这是我做的关于工时录入的数据库,已经有了"TAB工序","TAB操作","TAB规格"及"TAB定额"四个基础表和"工时录入表",通过窗体工时录入进行录入信息,为便于录入,在窗体中,"工序","操作","规格"和"定额"四个字段的组合框是相互控制的(按照ALEX的教程所编写),但现在我需要增加一个控制字段"部件",想要由"部件"字段来控制"工序"字段所显示的项目,但由于有些工序会被不同的部件所需要,所以"工序"字段的"部件ID"便不是唯一值,可能同时有几个,如何让"工序"字段可以在多个部件ID中查找,任一值为真时都能够显示?

PS:菜菜的我照葫芦画瓢写的代码:
Private Sub 工序ID_GotFocus()
If 部件ID1=" + Str(Me.部件ID) + " Then
      Me.工序ID.RowSource = "SELECT 工序ID, 工序 FROM TAB工序"
      Else
         If 部件ID2=" + Str(Me.部件ID) + " Then
         Me.工序ID.RowSource = "SELECT 工序ID, 工序 FROM TAB工序"
         ......
      End if
   End if
   ......
If Me.NewRecord Then
      Me.操作ID.Dropdown
End If
End Sub
代码如上时工序ID处会显示出所有的工序,如果我想让工序处只显示其任一部件ID与当前部件ID相等的工序,要如何做呢?或者要用什么语句呢?

[此贴子已经被作者于2004-4-17 10:19:13编辑过]

作者: skylark 时间: 2004-4-17 20:07
To 夜漩苍紫:
组合框无法多重选择，需用列表框，你的要求可建一工序和部件关糸的库解决，
或用列表框，你的文件中看不出部件的要求，能否指明。
——————————————
Do Our Job Well Try Anything Once

作者: 夜漩苍紫 时间: 2004-4-18 05:14
在家具生产中涉及的工序很多,但有些工序可能只适用于某几个部件,而有些工序则是所有部件都会使用到的,如果使用组合框中
Private Sub 工序ID_GotFocus()
If 部件ID1=" + Str(Me.部件ID) + " Then
Me.工序ID.RowSource = "SELECT 工序ID, 工序 FROM TAB工序 WHERE (部件ID="+Str(Me.部件ID)+")"
End Sub
这样的代码的话,则一个工序只能对应一个部件,我需要一个工序可以对应几个部件(比如工序.油工,这是所有家具的必需工序,那么我希望当选择了任一部件后,工序的下拉列表中都会出现油工,而工序.立轴则是某些家具所需的工序,另一些则不需要,那么只有部件ID处填有需要它的部件时,工序下拉列表中才会显示出该工序,而在不需要此工序的部件时则不显示这道工序.

作者: skylark 时间: 2004-4-18 07:40
To 夜漩苍紫:
引用: " Me.工序ID.RowSource = "SELECT 工序ID, 工序 FROM TAB工序 WHERE (部件ID="+Str(Me.部件ID)+")"
你的文件里所有的Table都没有部件ID的字段,且TAB工序表只有两个字段,你需建一个一对多的
表,一是部件ID,部件名称,子表有子表ID,和父表相对的部件ID,工序ID,如有一个部件叫台子面,部件ID是1,子表(多方)有三条纪录,部件ID(级连)都是1,子表ID是1至3,工序ID是对应工序表的工序
ID,如分别是3,2,8,则是R9,I型砂光机,带镜浴柜三道工序,你的要求则能做到了.OK!
_____________________________
Do Our Job Well Try Anything Once

作者: 夜漩苍紫 时间: 2004-4-18 18:23
上传的这个数据库是存在我机器中备份的,所以没有部件ID,在我新更改的数据库中,TAB工序中表有部件ID1\部件ID2\部件ID3\部件ID4这四个字段,如果我想要让任一的部件ID与ME.部件ID相等就显示,代码部分要如何写?
我用IF语句的结果是显示所有的工序,如果用OR进行连接的话则一个都不会出现???

作者: skylark 时间: 2004-4-18 19:09
标题: 回复：（夜漩苍紫）上传的这个数据库是存在我机器中备...
To 夜漩苍紫:
没有库,我利用TAB操作为例,选了操作(部件框),工序框会只有操作中工序是此操作
工序相等的操作项目,不知你能否套用,你如要达到要求,请传一个模拟库上来.
_____________________________
Do Our Job Well Try Anything Once
[attach]4292[/attach]

作者: 夜漩苍紫 时间: 2004-4-22 03:43
[attach]4346[/attach]
这是我做的模拟库,其中工序表中有四个部件ID字段,我需要只要任一部件ID字段中的部件ID与当前的部件ID相等就可以显示!

作者: skylark 时间: 2004-4-22 06:52
标题: 回复：（夜漩苍紫）[upload=rar]viewfile.asp?ID=4346...
[attach]4355[/attach]

[此贴子已经被作者于2004-4-22 5:45:38编辑过]

作者: 夜漩苍紫 时间: 2004-4-23 03:09
多谢!!!!多谢!!!!

作者: zczc123 时间: 2008-7-13 14:33
[:50]

作者: zczc123 时间: 2008-7-13 14:34
[:50] [:50]

作者: weixia0000 时间: 2008-10-18 07:57
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)