关于在窗口中的下拉列表框选择的不同触发不同的事件

王小军　发表于：2013-08-30 14:04:43 　

复制

点击下载此附件

在输入内容窗口中有选择下拉列表

例如：下拉列表值为1,2,3

我想要做到的效果是当我选择下拉列表值1时，触发事情1， 2和3事件不触发

当我选择下拉列表值2时，触发事情2， 1和3事件不触发

请问下这个问题应该如何解决哦

本人新手麻烦多多关照哦！

Top

煮江品茶发表于：2013-08-30 15:05:51

select case me.阁下的组合框.value

case 1

call 程序名1

case 2

call 程序名2

......

end select

Top

cspa 发表于：2013-08-30 15:11:57

用select case语句：

Private Sub 选择_AfterUpdate()
Dim fz As Object
Dim 选择 As Integer

   Me.Requery
   Select Case Me.选择
       Case "导出费用确认单"
           If MsgBox("是否确定导出费用确认单", Me.选择 = "导出费用确认单" And vbQuestion + vbOKCancel = vb0k) Then
               Me.Requery
               DoCmd.SetWarnings False
               DoCmd.OpenQuery "费用单里的内容"
               DoCmd.OpenQuery "查询10"
               Set fz = CreateObject("Scripting.FileSystemObject")
               fz.Copyfile CurrentProject.Path & "\报价表和费用确认单.xls", CurrentProject.Path & "\ceshi\报价表和费用确认单.xls"
               Name CurrentProject.Path & "\ceshi\报价表和费用确认单.xls" As CurrentProject.Path & "\ceshi\" & Format(Now(), "yyyymmddhhmmss") & ".xls"
               MsgBox ("报关单已导出到“ceshi”文件夹内，请查看")
               DoCmd.OpenQuery "查询3"
               Shell "explorer.exe " & CurrentProject.Path & "\ceshi\", vbNormalFocus
           End If
       Case "导出预配仓单"
           If MsgBox("是否确定导出预配仓单", Me.选择 = "导出预配仓单" And vbQuestion + vbOKCancel = vb0k) Then
               Me.Requery
               DoCmd.SetWarnings False
               DoCmd.OpenQuery "查询1"
               DoCmd.OpenQuery "查询2"
               Set fz = CreateObject("Scripting.FileSystemObject")
               fz.Copyfile CurrentProject.Path & "\三联单舱单数据.xls", CurrentProject.Path & "\三联单舱单数据\三联单舱单数据.xls"
               Name CurrentProject.Path & "\三联单舱单数据\三联单舱单数据.xls" As CurrentProject.Path & "\三联单舱单数据\" & Format(Now(), "yyyymmddhhmmss") & ".xls"
               MsgBox ("三联单舱单数据已导出到“三联单舱单数据”文件夹内，请查看")
               DoCmd.OpenQuery "查询3"
               Shell "explorer.exe " & CurrentProject.Path & "\三联单舱单数据\", vbNormalFocus
           End If
   End Select
End Sub