入门菜鸟,疯狂求救...SOS...

naima1105

Hi , 各位大哥大姐小妹小弟,

兄弟我刚刚开始学习ＶＢＡ二次开发,遇到一个未知难题,请帮忙瞧瞧,,,不甚感激....

代码如下,

Private Sub UserForm_Activate()
   
    With lstExpenseType
    .RowSource = "Expense"
    ListIndex = 0
   
    End With
   
    txtDate.Text = Format(Now, "mm/yy/dd")
    With lstCardType
    .RowSource = "CardType"
    ListIndex = 0
    End With



Ｆ５运行后,　提示

hehex

楼主你这段代码看着眼熟，好像是某本vba 书里的一个例子程序。
综合代码上下文分析，1stExpenseType 应该是一个列表框控件(listbox)。你没有附件，所以不清楚你的窗体是如何定义的，如果定义好窗体，并且在上面画一个listbox 控件，并且将该控件的name 属性设为1stExpenseType 再试试看。
with 后面的语句就是访问该控件，listindex 是列表框控件的属性，是显示第几条，index 是下标从0开始的。
即使代码有错，不应该返回变量未定义错误，明显是1stExpenseType 对象定义的有问题。

naima1105

hehex 发表于 2013-1-23 13:25
楼主你这段代码看着眼熟，好像是某本vba 书里的一个例子程序。
综合代码上下文分析，1stExpenseType 应该是 ...

thanks hehex , I find the failure just as you mentioned above . "a mis-operation of creating the form" ....