ListView控件问题！

Question

Me.ListView1.ColumnHeaders.Clear
Set clmX = Me.ListView1.ColumnHeaders.Add(, , "列一", 1200)
Set clmX = Me.ListView1.ColumnHeaders.Add(, , "列二", 1230)
Me.ListView1.ListItems.Clear
With Me.ListView1.ListItems
Set itmM = .Add(, "ID005", "姓名")
Set itmM = .Add(, "ID006", "名字")
Set itmM = .Add(, "ID007", "职务")
Set itmM = .Add(, "ID008", "单位")
End With现在我想再End With后面写代码给“姓名”的“列二”添加Text怎么添加呀？
我用itmM.SubItems(1) = "无语"添加总是添加在“单位”的列二中。

Answer 1

ListView1.ListItems(1).SubItems(1) = "无语"

Answer 2

With Me.ListView1.ListItems
Set itmM = .Add(, "ID005", "姓名")
         itmM.SubItems(1)="your text"
Set itmM = .Add(, "ID006", "名字")
Set itmM = .Add(, "ID007", "职务")
Set itmM = .Add(, "ID008", "单位")
End With

Answer 3

如果添加到“名字”行则是：
ListView1.ListItems(2).SubItems(1) = "无语"
以此类推