关于ListView添加的问题，急！！在线等！！

Question

lvobject.ListItems.Add , "hh" & i, strUse 关键字是ListView用来建立索引的主键，当然是不允许重复的

Answer 1

不好意思，又有一个问题想请教大虾，我将以上程序做了一下修改，想再在ListView中加入一列，不知道如何解决，代码如下：
For i = 1 To gsLength
       strNow = Mid(strGs, i, 1)
       If strNow <> "+" Then
          strUse = strUse & strNow
          
       Else
          lvobject.ListItems.Add , "hh" & i, strUse
          strSQLhmc = "select hmc from c_hbzd where hh='" & strUse & "'"
          Set rshmc = cnTest.Execute(strSQLhmc)
              strHmc = rshmc.Fields(0).Value
          lvobject.ListItems.Add , "hmc" & i, strHmc
          strUse = ""
          strHmc = ""
       End If
   Next i
还是For循环中的，想除了添加hh外，还想添加hmc，不知道怎么处理，请帮忙，谢谢，处理完后立即给分。

Answer 2

dim itemx as listitem
set itemx=lvobject.lisitem.add(...)
itemx.subitem(1)=...
itemx.subitem(2)=...