listview窗体中能否多选后录入到表

shbc001

学习一下,很好的案例

shbc001

Sub mywrite()    With Me.ListView1        If .ListItems.Count = 0 Then Exit Sub       .ListItems(1).Ghosted = False       iRow = Application.Max(3, ActiveSheet.[b65536].End(xlUp).Row) '最大行数        For i = 1 To .ListItems.Count           If .ListItems(i).Checked Then               iRow = iRow + 1               .ListItems(i).Checked = False                With ActiveSheet             '************************************************************************该下方处修改****************             '      .Cells(iRow, 2).Offset(0, 0) = ListView1.SelectedItem.Text             '      .Cells(iRow, 2).Offset(0, 1) = ListView1.SelectedItem.SubItems(1)             '      .Cells(iRow, 2).Offset(0, 2) = ListView1.SelectedItem.SubItems(2)             '      .Cells(iRow, 2).Offset(0, 3) = ListView1.SelectedItem.SubItems(3)                                      .Cells(iRow, 2).Offset(0, 0) = ListView1.ListItems(i).Text                   .Cells(iRow, 2).Offset(0, 1) = ListView1.ListItems(i).SubItems(1)                   .Cells(iRow, 2).Offset(0, 2) = ListView1.ListItems(i).SubItems(2)                   .Cells(iRow, 2).Offset(0, 3) = ListView1.ListItems(i).SubItems(3)             '************************************************************************该上方处修改****************                End With           End If    Next i    End WithUnload MeEnd Sub

ugyun

shbc001 发表于 2012-4-15 00:31
Sub mywrite()    With Me.ListView1        If .ListItems.Count = 0 Then Exit Sub       .ListItems(1). ...

非常感谢老师，完全符合要求，这下完美了

nowarmy

谢谢！今天正好需要学习。

山中人

收藏学习,谢谢12楼

fanhongnc

收藏学习,谢谢12楼

zglibk

好厉害！！！！！！膜拜啊

lcjy11185

学习listview复选框的用法

jhzghua

收藏学习,谢谢12楼

ivccav

哥们，你的代码写得不好，不忍卒读啊。