VB实时错误'91'对象变量或with块变量未定义

来源：百度知道编辑：UC知道时间：2024/09/21 13:36:23

把以下代码放左Private Sub Command1_Click()中正常运行
而放左Private Sub Form_Load()产生错误
连接数据库是用data控件，设置了数据库路径，来源表。
请各位帮帮忙。
Private Sub Form_Load()
Dim clm As ColumnHeader
Dim itm As ListItem
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.View = 3
ListView1.LabelEdit = lvwManual
Set clm = ListView1.ColumnHeaders.Add(, , "id")
Set clm = ListView1.ColumnHeaders.Add(, , "name")
Set clm = ListView1.ColumnHeaders.Add(, , " tel")
Set itm = ListView1.ListItems.Add()
itm.Text = Data1.Recordset.Fields("id")
itm.SubItems(1) = Data1.Recordset.Fields("name")
itm.SubItems(2) = Data1.Recordset.Fields("tel")
End Sub

在窗体的Activate事件里试试

窗口的load 事件是发生在控件加载前的，控件都没有你却定义它们的属性当然出错，放在INIT试试吧

Private Sub Form_Load()

me.show '加这句试试看,不敢保证有效

Dim clm As ColumnHeader
Dim itm As ListItem
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
ListView1.View = 3
ListView1.LabelEdit = lvwManual
Set clm = ListView1.ColumnHeaders.Add(, , "id")
Set clm = ListView1.ColumnHeaders.Add(, , "name")
Set clm = ListView1.ColumnHeaders.Add(, , " tel")
Set itm = ListView1.ListItems.Add()
itm.Text = Data1.Recordset.Fields("id")
itm.SubItems(1) = Data1.Recordset.Fields("name")
itm.SubItems(2) = Data1.Recordset.Fields("tel")
End Sub

vb 实时错误91 VB实时错误‘91’ VB代码“实时错误：'91' VB实时错误'5' VB实时错误‘3705’ VB实时错误‘380’ VB 实时错误 424 vb 实时错误5 vb实时错误3705 vb提示实时错误75