ListView怎么没有办法加关键字?
bokei 2000-07-14 12:55:00 VB6+SP3
我用了一个ListView,用来把recordset里的记录显示在上面,可是当我把recordset里的某个字段的值赋给一个ListItem作为关键字时,他却告诉我是无效的关键字,这个字段是字符串类型的,主键,不会有空值/重复值,怎么回事?
哪段代码如下:
Dim i As Integer '循环计数器
Dim clmTemp As ColumnHeader '要加入的列标头
Dim itmTemp As ListItem '要加入的项目
Dim cmdTemp As New ADODB.Command
cmdTemp.ActiveConnection = conData
cmdTemp.CommandText = strStoreName
cmdTemp.CommandType = adCmdStoredProc
Set rstMarkMan = cmdTemp.Execute
With lvwView
.ListItems.Clear
.ColumnHeaders.Clear
rstMarkMan.MoveFirst
For i = 0 To rstMarkMan.Fields.Count - 1
Set clmTemp = .ColumnHeaders.Add(, , rstMarkMan.Fields(i).Name)
Next i
If rstMarkMan.EOF And rstMarkMan.BOF Then
Exit Sub
End If
Do While Not rstMarkMan.EOF
Set itmTemp = .ListItems.Add(, rstMarkMan.Fields(0).value, rstMarkMan.Fields(0).Value) '出错了
For i = 1 To rstMarkMan.Fields.Count - 1
If Not IsNull(rstMarkMan.Fields(i).Value) Then
itmTemp.SubItems(i) = rstMarkMan.Fields(i).Value
Else
itmTemp.SubItems(i) = ""
End If
Next i
rstMarkMan.MoveNext
Loop
End With
Set cmdTemp = Nothing
Exit Sub
Error:
MsgBox Err.Number & Err.Description