标题: 第一次使用ListView就出现问题，大家帮忙看看 [打印本页] 作者: arksore 时间: 2009-9-8 07:05 标题: 第一次使用ListView就出现问题，大家帮忙看看 照搬论坛某DX的，自己的总是编译过不去，咋回事？作者: djt 时间: 2009-9-8 09:05
先加columnheaders才能加listitem
Private Sub Form_Load()
Dim syRecset As DAO.Recordset
Dim itemX As ListItem
Dim a As Integer
Dim strSql As String
ListV.ListItems.Clear
strSql = "SELECT * FROM Table1 "
Set syRecset = CurrentDb.OpenRecordset(strSql)
Debug.Print syRecset.RecordCount
For a = 1 To syRecset.Fields.Count
ListV.ColumnHeaders.Add , , syRecset.Fields(a - 1).Name
Next
If syRecset.RecordCount > 0 Then
syRecset.MoveFirst
Do Until syRecset.EOF
Set itemX = ListV.ListItems.Add()
itemX.SubItems(1) = syRecset!AA
itemX.SubItems(2) = syRecset!BB
syRecset.MoveNext
Loop
Set syRecset = Nothing
End If
End Sub作者: arksore 时间: 2009-9-9 05:04 本帖最后由 arksore 于 2009-9-9 05:06 编辑