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

sdj1211

win10+office2016下载更新后的已经正常使用。
问一下，会出access数据库版本的吗？

wowo000

谢谢您，老师！

ivccav

sdj1211 发表于 2018-7-14 08:21
win10+office2016下载更新后的已经正常使用。
问一下，会出access数据库版本的吗？

Access数据库不需要Listview，可以在Access窗体上绑定数据源，直接更改，筛选使用窗体的Filter属性编程即可。

如果你问的是在Excel中操作Access数据库，只需要把现在程序中的arrData数组换成一个Recordset即可。ADO中的Recordset用法跟数组差不多，只是循环的方式可以不同，但使用上更方便，因为Recordset是一个功能非常强大的对象，有几十种方法和属性。操作Access数据库会更简单些。等有时间我做一个例子出来吧！你也可以自己试试，ADO的基础功能用起来很简单。
我现在想在现有程序基础上加上删除行和新增行的功能，但Excel中的数据行跟具体位置有关，比如在中间删除一行，后边的所有行的行号都跟着变化了，数组中保存的行号就不再正确，需要更新arrData数组。（当然也可以不在数组中记录行号，而用Find查找唯一关键字定位行位置，但操作单元格对象的效率很低，且在Excel中没人会加一列“无用”的ID）。如果操作数据库中的数据，则简单得多，ADO帮我们做了很多事。

ivccav

wowo000 发表于 2018-7-14 08:21
谢谢您，老师！

问题解决了吗？我没有64位的系统，没法测试，所以也帮不了你。

你如果是32位的Office，只要把程序中涉及API的部分，

把Long类型改为LongLong（数值）或LongPTR（指针），

并声明指针安全，一般就可运行了！

sdj1211

ivccav 发表于 2018-7-14 09:00
Access数据库不需要Listview，可以在Access窗体上绑定数据源，直接更改，筛选使用窗体的Filter属性编程 ...

那直接改成数据库版本的不就更好吗。
期待你的数据库版本！

ivccav

sdj1211 发表于 2018-7-15 07:45
那直接改成数据库版本的不就更好吗。
期待你的数据库版本！

改了一半了。，新增了删除和新增按钮，只差新增按钮还没处理好。

新增按钮要考虑数据完整性，要检查哪些必填字段是否填写完整。

改完之后，Listview就具有增删改查的全部功能了。用数据库更容易实现这些功能。

ivccav

有个问题，请把：
        If intKey = 37 Then '向左
            sngNewInkLeft = InkEdit1.Left - .ColumnHeaders(intCol+1).Width
改为：
        If intKey = 37 Then '向左
            sngNewInkLeft = InkEdit1.Left - .ColumnHeaders(intCol).Width

暂时不改附件了。等我搞好数据库版再一次性修正算法。

ivccav

sdj1211 发表于 2018-7-14 08:21
win10+office2016下载更新后的已经正常使用。
问一下，会出access数据库版本的吗？

你需要的Access数据库版本的Listview已经写好了，更新在附件中了。并修正了一下算法失误。

还是使用数据库比较方便。EXCEL的数据和行相关，修改、新增、删除之后，都得花费很多计算量来更新。

sdj1211

ivccav 发表于 2018-7-16 21:47
你需要的Access数据库版本的Listview已经写好了，更新在附件中了。并修正了一下算法失误。

还是使 ...

非常感谢，真的很实用！

sdj1211

ivccav 发表于 2018-7-16 21:47
你需要的Access数据库版本的Listview已经写好了，更新在附件中了。并修正了一下算法失误。

还是使 ...

能不能实现选择性的批量修改？比如选择框选1/3/5后，能把第5列都修改为同一数据。