窗体Listview控件实现可编辑功能的完美解决方法

ivccav

sdj1211 发表于 2018-7-17 07:46
能不能实现选择性的批量修改？比如选择框选1/3/5后，能把第5列都修改为同一数据。

附件中的程序是不能的，只修改当前单元格，我只是提供了Listview修改的功能，特殊的应用还是应该自己改造的，没法适用于所有情况。

你可以在每行前面显示复选框，通过勾选的形式选定要修改的行，然后在修改Inkedit控件的值后，循环Listview，看看哪些行勾选了复选框，如果勾选了，相应列的值都等于InkEdit的值即可。

wyymy01101

最近正在写个台账系统，这个功能真是太及时了，前面有textbox实现的，但是这个更方便也是我想要的，楼主真是大神，谢谢楼主的无私奉献，但是插一句我也是从外国人写的代码哪里看到你的帖子的，我觉得我们和外国人的差距真是太大啦，这是整整落后了二十年的节奏吗？！希望我是多想了

wyymy01101

再次感谢楼主的分享，已经在研究中

ivccav

wyymy01101 发表于 2018-8-13 11:24
最近正在写个台账系统，这个功能真是太及时了，前面有textbox实现的，但是这个更方便也是我想要的，楼主真 ...

我这个代码是自己写出来的，没有参考别人，如果你在网上看到有相似的代码可以发给我看看（思路可能会有相似，都是控件子类化，但是InkEdit位置的算法和键盘处理功能是我独立完成的，不是我想自己写，是网上没有这些内容）。你说的20年前外国人写的代码，我看过，太长、太复杂，本论坛有人引用过，没法处理键盘事件和鼠标，我觉得不好用，才自己解决这个问题的。

ivccav

wyymy01101 发表于 2018-8-13 11:24
最近正在写个台账系统，这个功能真是太及时了，前面有textbox实现的，但是这个更方便也是我想要的，楼主真 ...

落后20年也许的可能的，反正我写这篇帖子之前，我是没找到能实现到本帖中的功能的代码，歪果仁的代码也没有。
20年前我们没几个人见过电脑吧，见过也用不起，太贵了。现在电脑普及了，国人也未必比歪果仁差太多的，特别是应用方面，底层的技术可能还是老外厉害点，毕竟别人研究几十年了。

老鬼公公_31

当DB数据库的表记录是空的时候，比如增加第一条记录会出错，请老师怎样修改下，谢谢
Private Sub AddNewListItem()
    With ListView1
        If blnNewItem = False Then
            .ListItems.Add '在最后面新增
            Set .SelectedItem = .ListItems(.ListItems.Count)
            .SelectedItem.EnsureVisible
            intCol = 1
            ShowInkEdit
            blnNewItem = True
        Else
            '验证数据完整性，不通过则不写入数据库
            Dim lngLastIndex As Long, i As Long
            Dim NewID As Object
            Set NewID = CreateObject("adodb.recordset")
            If Not .SelectedItem Is Nothing Then
                lngLastIndex = .ListItems.Count
                If CheckDataIntegrity(lngLastIndex) Then
                    rst.addnew
                    For i = 1 To .ColumnHeaders.Count - 1
                        If Len(.ListItems(lngLastIndex).SubItems(i)) Then
                            rst(i) = .ListItems(lngLastIndex).SubItems(i)
                        End If
                    Next
                    rst.Update
                    Set NewID = cnn.Execute("SELECT @@IDENTITY", , 1) '新插入行的ID
                    If Not NewID.EOF Then .ListItems(lngLastIndex).Text = NewID(0)
                    blnNewItem = False
                    MsgBox "新增行保存成功"
                Else
                    MsgBox "请先填写之前的新增行！", vbCritical
                End If
            End If
        End If
    End With
End Sub

ivccav

老鬼公公_31 发表于 2018-9-12 11:11
当DB数据库的表记录是空的时候，比如增加第一条记录会出错，请老师怎样修改下，谢谢
Private Sub AddNewLi ...

很久没上网了，现在家没电脑，过几天再看看。

wowo000

尊敬ivccav老师，“[Excel 程序开发] [第13期_1] 仿ListView功能”可以帮忙增加：①在main里录入新的数据保存到data表；②加一个ScrollBar2用于水平调节。恳请回复。

wowo000

老师，这是原贴地址：[第13期_1] 仿ListView功能
http://club.excelhome.net/thread-175093-1-1.html
(出处: ExcelHome技术论坛)

wbjjzhu

收藏学习,谢谢分享.