VBA上万数据查询不卡顿，仅能兼容32位，64位麻烦大家修改一下语句

tdpzby · 发表于 2024-5-13 10:58

64位系统更改方案：
1. api函数，过程前增加 ptrsafe
2. lvcolumn 类型下的long 改为 longptr
3. 剩下的在提示运行类型不匹配的地方，找到报错的调用函数定义部分：long改为longptr
4. 窗体代码新增api 函数：private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
然后找到application.hinstance 用getmodulehandle(VBnullstring)代替

按照上面的方式改完后，窗体可以打开了，但是不显示数据@*@

tdpzby · 发表于 2024-5-13 11:40

tdpzby 发表于 2024-5-13 10:58
64位系统更改方案：
1. api函数，过程前增加 ptrsafe
2. lvcolumn 类型下的long 改为 longptr

查询结果可以正常显示

MrYe666666 · 发表于 2024-5-13 11:59

tdpzby 发表于 2024-5-13 10:58
64位系统更改方案：
1. api函数，过程前增加 ptrsafe
2. lvcolumn 类型下的long 改为 longptr

厉害，应该快出最终的结果了

tdpzby · 发表于 2024-5-13 13:43

MrYe666666 发表于 2024-5-13 11:59
厉害，应该快出最终的结果了

listview 里面我就不会了，等这版主更新呢

上面的第4步，把application.hinstance改成application.hinstanceprt就行了，没必要用api函数

zpy2 · 发表于 2024-5-13 18:20

MrYe666666 发表于 2024-5-12 21:16
只是兼容性问题，某宝解决需要100，我觉得太不划算了，毕竟源文档也是某位老师分享给我的，只是没能学 ...

某宝解决需要100

性能的问题，感觉不那么容易。

https://club.excelhome.net/forum.php?mod=viewthread&tid=1503981&mobile&_dsign=a43274d1

		自动登录	找回密码
密码			免费注册

[求助] VBA上万数据查询不卡顿，仅能兼容32位，64位麻烦大家修改一下语句