小小出入库管理系统(2012年12月又作了更新)

dear小菜 · 发表于 2017-5-29 15:47

修改这个文件可以匹配WIN 7 64位系统

zjdh · 发表于 2017-5-30 19:31

dear小菜发表于 2017-5-29 15:47
修改这个文件可以匹配WIN 7 64位系统

抱歉，我没有这环境，无法设置！
不过你可以参照1楼的办法试试。

dear小菜 · 发表于 2017-5-31 08:51

1楼没看到有说明如何修改的。。。。Private Sub UserForm_Initialize()
Label1.Caption = Sheets("系统设置").Range("C26")
ARR = Sheets("系统设置").Range("B5:C" & Sheets("系统设置").Range("C16").End(3).Row)
For I = 1 To UBound(ARR)
ComboBox1.AddItem ARR(I, 1)
Next I
End Sub

zjdh · 发表于 2017-5-31 09:30

dear小菜发表于 2017-5-31 08:51
1楼没看到有说明如何修改的。。。。Private Sub UserForm_Initialize()
Label1.Caption = Sheets("系 ...

1楼有链接问题处理办法

dear小菜 · 发表于 2017-5-31 09:57

1. 打开文件不执行宏
2. Alt+F11 打开VBA编辑器
3. 菜单----工具----引用，将丢失的控件前段勾去除，保存文件。
4. 宏安全复原，打开文件。
谢谢，用此方法解决了，WIN7 64位可以打开文件了

dear小菜 · 发表于 2017-5-31 11:04

打印单据时弹出用户定义类型未定义。。。指向Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) 如何解决

zhjp8018 · 发表于 2017-6-1 08:30

做的真好，老师可以教教我吗？

zhjp8018 · 发表于 2017-6-1 13:37

楼主在吗？你有教学群吗？求教

zjdh · 发表于 2017-6-1 15:37

dear小菜发表于 2017-5-31 11:04
打印单据时弹出用户定义类型未定义。。。指向Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MS ...

可能由于版本问题，该功能无法运行，你可以将整段删除掉，（仅用于列表排序）

dear小菜 · 发表于 2017-6-1 16:02

我查了一下你以前的问题，关于控件的，我发现少了一个控件，但我加上后又显示那个424运行错误提示，不知是不是还要曾加LISTVIEW窗体，但我不懂怎么搞，我把两个文件发给你，你帮我看看。谢谢了，一个是添加了控件，一个是没有添加控件（我用另一个表试过了你说的删一段，但不知我是不是删错了，但又提示另一个错误)

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

[分享] 小小出入库管理系统(2012年12月又作了更新)