菜啊菜啊菜....

[darcymei]

Private Sub Form_Load()
Dim rsLessonTemp As ADODB.Recordset
Dim liTemp As ListItem
Set rsLessonTemp = frmLoginMain.cnStudent.Execute("select * from 课程 where 院系 =" + "'" + frmLoginMain.strzhuanye + "'")
frmLesson.lvwZhuanye.ListItems.Clear
While Not rsLessonTemp.EOF
Set liTemp = frmLesson.lvwZhuanye.ListItems.Add
liTemp.Text = rsLessonTemp.Fields.Item(1).Value
*** liTemp.SubItems(1) = rsLessonTemp.Fields.Item(2).Value
liTemp.SubItems(2) = rsLessonTemp.Fields.Item(3).Value
rsLessonTemp.MoveNext
Wend
End Sub

在****这里出现“无效的属性值”（380号错误）
监视窗口里liTemp.SubItems(1)的属性为integer
偶的lvwZhuanye.view已设为3
但我看msdn上好像说subitems应该是string型的啊
不知道错在哪？
还请给与解决方法....

[射天狼]

*** liTemp.SubItems(1) = rsLessonTemp.Fields.Item(2).Value

把你那句改为

liTemp.ListSubItems.Add , , rsLessonTemp.Fields.Item(2).Value
liTemp.ListSubItems.Add , , rsLessonTemp.Fields.Item(3).Value

[射天狼]

liTemp.SubItems(1) = rsLessonTemp.Fields.Item(2).Value
liTemp.SubItems(2) = rsLessonTemp.Fields.Item(3).Value

把你这两句改为

liTemp.ListSubItems.Add , , rsLessonTemp.Fields.Item(2).Value
liTemp.ListSubItems.Add , , rsLessonTemp.Fields.Item(3).Value

[射天狼]

或者
liTemp.ListSubItems.Add
liTemp.SubItems(1) = rsLessonTemp.Fields.Item(2).Value
liTemp.ListSubItems.Add
liTemp.SubItems(2) = rsLessonTemp.Fields.Item(3).Value

[darcymei]

没有用....
能不能说说为什么，为什么会出现integer属性

[griefforyou]

我还以为要做什么菜呢，呵呵！

[darcymei]

昏....

[darcymei]

up下