UC知道帮忙解决一个VB问题
来源：百度知道 编辑：UC知道 时间：2024/06/19 04:40:40
Set itemx = ListView1.ListItems.Add(, , CCur(i))
With itemx
.SubItems(1) = Mid$(Str$(jw3(i) * rj), 2, 5)
.SubItems(2) = Mid$(Str$(js3(i)), 1, 5)
.SubItems(3) = Mid$(Str$(jj3(i)), 1, 6)
End With
编译提示 无效的属性值，请问如何修改？
With itemx
.SubItems(1) = Mid$(Str$(jw3(i) * rj), 2, 5)
.SubItems(2) = Mid$(Str$(js3(i)), 1, 5)
.SubItems(3) = Mid$(Str$(jj3(i)), 1, 6)
End With
编译提示 无效的属性值，请问如何修改？
Dim itemx as listview
设置ListView标题栏名称
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Date", 1200, 0
ListView1.ColumnHeaders.Add , , "Items", 4000, 0
ListView1.ColumnHeaders.Add , , "Price", 2000, 0
设置ListView内容
With ListView1
Set itemx = .ListItems.Add(, , Mid$(Str$(jw3(i) * rj), 2, 5))
itemx.SubItems(1) = Mid$(Str$(js3(i)), 1, 5)
itemx.SubItems(2) = Mid$(Str$(jj3(i)), 1, 6)
End With
itemx 是什么控件？
有没有SubItems 这个属性呢？..
listview中根本没有subitems这个属性。