帮忙看看为什么提示 缺少end sub

runningleo

Private Sub Command29_Click()
   Function cangchufenlei(Combo26, 借)
      Select Case Combo26
         Case 燃料动力费
          DoCmd.OpenForm "日常仓储装卸费用"
      End Select
   
    End Function
End Sub

调试时候 提示
Private Sub Command29_Click() 缺少 end sub

styhs

Private Sub Command29_Click()
   Function cangchufenlei(Combo26, 借)
      Select Case Combo26
         Case 燃料动力费
          DoCmd.OpenForm "日常仓储装卸费用"
      End Select
   
    End ...
runningleo 发表于 2010-4-15 13:25

Function cangchufenlei(Combo26, 借) --> ?

End Function --> ?

runningleo

2# styhs


什么
？

zyp

在事件程序中不能嵌入函数和sub,只能调用函数和公用sub

chuang0321

同4楼，sub和function应该分别写。现利用function......end function定义函数cangchufenlei(Combo26, 借)，然后再利用private sub ......end sub调用函数cangchufenlei(Combo26, 借)