问几个关于listview的问题？1.当listview控件上已显示出列表时，如何判断这个表有多少个字段！2.请进！

Question

For i=1 to Rs.Recordset
    set itemx=Lvw.Additem(,,rs!单据号)
    itemx.subitem(1)=rs!类型一 & "," & rs!类型二 & "," & rs!类型三
    Rs.Movenext
next i___________________________________ListView.ListItem.Count

Answer 1

ListView.ListItems.Count少打了个“s”，呵呵！

Answer 2

1.For i=1 to Rs.Recordset
    set itemx=Lvw.Additem(,,rs!单据号)
    itemx.subitem(1)=rs!类型一 & "," & rs!类型二 & "," & rs!类型三
    Rs.Movenext
next i2.ListView.ColumnHeaders.Count

Answer 3

谢谢，假如要把修改后的标题也改为两个，比如 单据号       类型  
   01     T1-1,T2-2,T2-1
   02     T1-2,T2-3,T2-1
   03     T1-2,T2-2,T1-5
....
能不能给我一个完整的解答！，谢谢！

Answer 4

可以在设计时修改嘛！如果想在运行时修改，只好手敲：ListView.ColumnHeaders.Clear
dim MyColumn As ColumnHeader
set MyColumn=ListView.ColumnHeaders.Add(,,"单据号")
set MyColumn=ListView.ColumnHeaders.Add(,,"类型")