好多年以前在论坛学习的代码，今天发现都不能用了

Netcrk

双击C列能弹出窗口，但是treeview和listview控件都不动作，以前好用的，不知是mdb库没引用，还是因为没有安装access,还是哪里有问题，烦请高手指点下,多谢

vitrel

您好，我测试了一下，能正常显示查询的结果。

由于不熟悉您的代码，刚开始时没做第一步（选定数据库），结果确是没反应的，也没提示，
后来看了您的代码，按图示的1、2、3一步步做，结果就出来了。

vitrel

还有，给个小建议。
您原来的代码，每次退出窗体后，还要花时间去退出单元格的编辑状态，比较麻烦。
建议加上一行“Cancel = True”的代码以解决该问题，提升一下使用感受。

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Set targ = Target
   
3.     If Target.Column = 3 And Target.Row >= a2 Then
   
4.         Cancel = True '建议增加这一行
   
5.         定额.Show
   
6.     End If
   
7. End Sub

复制代码

Netcrk

老师，多谢，我试了下，我这里还是不行，能把您引用库看下吗，这和office版本有关系吗，原本效果是窗口弹出，选定库，两侧明细都自动显示的

vitrel

Netcrk 发表于 2024-3-28 08:06
老师，多谢，我试了下，我这里还是不行，能把您引用库看下吗，这和office版本有关系吗，原本效果是窗口弹出 ...

楼主，您好！



1、以下是我电脑打开您的测试文件后所看到的引用列表。



2、以下是我电脑上使用您的测试文件的结果。


3、对于您提供的测试文件，一方面您说“以前行、现在不行”，另一方面，在我这里没问题。
而您现在称“treeview和listview控件都不动作”，我现在仅能提供以下意见（不一定正确，仅供参考）：
①您的Office是否2019以下的64位版本？如果是，treeview控件应该是无法使用。如果这一点不成立，请看下面一点。
②把窗体上的treeview和listview都删除掉，重新在相同的位置自行创建一个treeview和一个listview，现测试。此做法可以排除掉很多兼容性的问题。
③您的测试文件中，大量地使用了“On Error Resume Next”代码，隐藏了很多错误信息，对于故障调试来说非常不利，建议调试过程禁用它，看看能否找出故障原因。

Netcrk

我试下，我用的是本自带的M３６５正下载ａｃｃｅｓｓ，看来不用了

控件添加了还是不行，因该是系统的问题，当时在32位系统下弄的，64位总错，当时日志： 修复了64位系统下无法使用的问题。确认系统中有mscomctl.ocx文件，并且在vb下

看了下系统windows/system，没有这文件