[已解决]有关----窗体控件中字典运用,求高手指点!!!!!

txj

        第二行代码出,错不解,求高手指点!!!!!详情见附件,烦请高手测试!!!
Private Sub 商品_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If d.Exists(商品.Value) Then '代码到这一句出现错误
   单价 = d(商品.Value)
  Else
    MsgBox "该商品单价不存在，请重新输入"
    Cancel = True
  End If
End Sub

最佳答案

月排行榜 / 总排行榜

xdragon

2014-8-16 10:51

Private Sub UserForm1_Initialize()

改成

Private Sub UserForm_Initialize()

就好了，你改了窗体的名字却没有把代码中事件对应的代码更改。

跳转到最佳答案楼层

xdragon

Private Sub UserForm1_Initialize()

改成

Private Sub UserForm_Initialize()

就好了，你改了窗体的名字却没有把代码中事件对应的代码更改。

su45

改了这里就忘了改那里！

txj

       谢谢二位的指点!!!辛苦了!!!

su45

给 2 楼一个最佳吧！