mysql - vb6中的无效属性值

我这里有一个代码，用于将记录保存到数据库：

If mstrMaintMode = "ADD" Then

    lngIDField = GetNextCustID()

    strSPName = "InsertCustomer"

    Set objNewListItem = mylistview.ListItems.Add(, , txtname.Text)
    PopulateListItem objNewListItem
    With objNewListItem
        **.SubItems(mlngCUST_ID_IDX) = CStr(lngIDField)**
        .EnsureVisible
    End With
    Set mylistview.SelectedItem = objNewListItem
    Set objNewListItem = Nothing
Else
    lngIDField = CLng(mylistview.SelectedItem.SubItems(mlngCUST_ID_IDX))

    strSPName = "UpdateCustomer"

    mylistview.SelectedItem.Text = txtname.Text
    PopulateListItem mylistview.SelectedItem
End If

错误是：带有星号的行中的无效属性值。香港专业教育学院试图使用此代码到另一个数据库，它的工作，但对于另一个不是。我检查存储过程，是正确的，表字段，也是正确的，但我仍然遇到此错误。我花了3个小时找到答案，但我不会弄清楚。

最佳答案

当您指定的子项索引超出给定列表视图中的列数时，突出显示的行将失败并显示“无效的属性值”。

由于索引基于1，但从第二列开始，索引为7，因此至少需要添加8列。

关于mysql - vb6中的无效属性值，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/15242657/