菜啊菜啊菜....
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型的啊
不知道错在哪?
还请给与解决方法....