Dim oList
Dim oItem
Set oList = ScreenItems("listview1")
oList.ListItems.Clear
oList.ColumnHeaders.Clear
oList.ColumnHeaders.Add , ,CStr("aaaadd"), 30
oList.ColumnHeaders.Add , , CStr("ddsdfs"), 10
oList.ColumnHeaders.Add , , CStr("kkjfds"), 10
oList.ColumnHeaders.Add , , CStr("yyyyy"), 10
Set oItem = oList.ListItems.Add()
oItem.Text = "hhhh"
oItem.SubItems(1) = "1111"
oItem.SubItems(2) = "2222"
oItem.SubItems(3) = "3333"
调试时只显示 hhhh
各位高手帮办给看看,问题出在哪里??