利用vga窗口录入、修改数据

dtyghw · 发表于 2024-3-15 16:50

xunanming 发表于 2024-3-15 01:43
请参考---------------------------

谢谢老师的指教。

dtyghw · 发表于 2024-3-23 10:24

xunanming 发表于 2024-3-15 01:43
请参考---------------------------

老师您好，我发现录入的数据总是从第三列开始，如果把前两列删了代码应该如何调整，请指教，谢谢

xunanming · 发表于 2024-3-23 12:18

dtyghw 发表于 2024-3-23 10:24
老师您好，我发现录入的数据总是从第三列开始，如果把前两列删了代码应该如何调整，请指教，谢谢

For k = 0 To UBound(brr)
.Cells(2, k + 3) = brr(k)
Next
将保存按钮与修改按钮下的代码中的k+3改成k+1就可以了.这个是确定列号的

学良 · 发表于 2024-3-23 12:33

tanglf188 发表于 2024-3-15 11:03
参与一下，主要围绕ControlSource属性编写，请参考

上一条、下一条的功能加的好！
若能保留 查询与修改 功能就完美了。

dtyghw · 发表于 2024-3-23 15:40

xunanming 发表于 2024-3-23 12:18
For k = 0 To UBound(brr)
.Cells(2, k + 3) = brr(k)
Next

谢谢老师的指教。

dtyghw · 发表于 2024-3-23 16:13

本帖最后由 dtyghw 于 2024-3-23 16:16 编辑

谢谢老师，解决啦。谢谢

dtyghw · 发表于 2024-3-23 16:20

xunanming 发表于 2024-3-23 12:18
For k = 0 To UBound(brr)
.Cells(2, k + 3) = brr(k)
Next

老师，您好，请问光标能不能开始固定到类型后的文本框内，类型填好后，回车自动向下一个格跳动（不用点击鼠标），这个功能能不能实现。请老师指教，谢谢

tanglf188 · 发表于 2024-3-25 09:40

学良发表于 2024-3-23 12:33
上一条、下一条的功能加的好！
若能保留查询与修改功能就完美了。

您都能手了，添加这一功能易如反掌啊

dtyghw · 发表于 2024-3-25 21:50

xunanming 发表于 2024-3-23 12:18
For k = 0 To UBound(brr)
.Cells(2, k + 3) = brr(k)
Next

老师您好，我点保存提示这样的

是什么原因，如何调整，请指教，谢谢

xunanming · 发表于 2024-3-25 23:04

dtyghw 发表于 2024-3-25 21:50
老师您好，我点保存提示这样的是什么原因，如何调整，请指教，谢谢

将上方的模块级变量arr()改为arr,不要定义为动态数组

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

[求助] 利用vga窗口录入、修改数据