请教如何将ListVieWr控件设置为复选框控件并可修改

Question

通过ADO取得记录集RS,以下是我的代码
      If isModi Then  '若为修改模式
        Set LI = lvw.SelectedItem  '获取选中元素
        If LI Is Nothing Then Exit Sub  '若未选中，则退出
      Else    '若为添加模式
       Set LI = lvw.ListItems.Add(, "D" & rs("权限ID"), , bIcon, sIcon) '增加1个元素
      End If
      With rs
        LI.SmallIcon = sIcon   '设置小图标
        LI.Icon = bIcon '设置大图标
        LI.Text = .Fields(9).Value '标签
        LI.SubItems(1) = .Fields(4).Value
        LI.SubItems(2) = .Fields(5).Value
        LI.SubItems(3) = .Fields(6).Value
        LI.SubItems(4) = .Fields(7).Value
        LI.SubItems(5) = .Fields(8).Value
      End With
      Set LI = Nothing相请教如何让LI.SubItems(1)= .Fields(4).Value显视为复选框,如有可能,能不能直接在ListVieWr
控件中进行修改,并保存到数据库.

Answer 1

ListView1.Checkboxes = True '显示复选框
ListView1.LabelEdit = lvwAutomatic'可以编辑标签
Private Sub ListView1_AfterLabelEdit(Cancel As Integer, NewString As String)
    Me.Caption = NewString
End Sub

Answer 2

LI.SubItems(1) = .Fields(4).Value?
subitem 不能设置复选框。treeview可以，要有代码操作数据库。

Answer 3

谢谢泰山老师的指点,将老师代码添加后,复选框在ListVieWr控件第一列出现,并可以进行修改,而我想要的效果是第四列出现,另外就是我的ListVieWr控件是根据TreeView控件显视不同的表内容,老师的代码如何实现只争对特定情况出现第四列的功能,请老师再指点下,谢谢!!!