7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Form_Load()
LV1.ColumnHeaders.Add , , "序号"
LV1.ColumnHeaders.Add , , "时间"
LV1.ColumnHeaders.Add , , "日期"
LV1.ColumnHeaders.Add , , "备注"
Dim itm As ListItem
Set itm = LV1.ListItems.Add(, , 1)
itm.SubItems(1) = "00:00:00"
itm.SubItems(2) = "2008-01-01"
itm.SubItems(3) = "(无)"
Set itm = LV1.ListItems.Add(, , 2)
itm.SubItems(1) = "00:00:01"
itm.SubItems(2) = "2008-01-01"
itm.SubItems(3) = "(无)"
LV1.View = lvwReport
LV1.FullRowSelect = True
End Sub