无效的属性值在VB6

我有一个代码，就在这里，这是保存记录DATABSE：无效的属性值在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

的错误是：在用星号线无效的属性值。香港专业教育学院尝试使用此代码到另一个数据库，它的工作原理，但另一个它没有.ive检查存储过程，它是正确的，表字段，也是正确的，但即时通讯仍然得到这个error.ive花了3小时找到答案，但我无法弄清楚。

来源

2013-03-06 Soon To Be Revealed

错误与您的数据库代码无关。它对自己的价值抱怨。是否'mlngCUST_ID_IDX'引用有效（已创建）列索引？ – Deanna 2013-03-06 10:28:52

烨我intializes一个7，我真的不知道发生了什么here..they不符合“CSTR（lngidfield）”等，这是什么问题？ – 2013-03-06 14:40:34

而你实际上在列表视图中有8列？ – Deanna 2013-03-06 14:46:35

你都强调，当你指定一个子项指数是出给定的列表视图的列数界将失败，出现“无效的属性值”行。

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

来源

2013-03-06 14:50:17 Deanna

无效的属性值在VB6

回答

相关问题