[求助]ADO写入数据到ACCESS（圆满解决）-已添加VB版的Listview隔行显示不同颜色功能

office2008 · 发表于 2008-8-31 13:37

还有问题：

1 是颜色问题，可以着上颜色

２是列标（即listview1的第一列）如果双击清空，如果再进行操作的话，就会出现问题

另外使　on error resume next 先让这句不起作用，多测试几次．

fecmen · 发表于 2008-8-31 15:07

QUOTE:

以下是引用office2008在2008-8-31 13:37:00的发言：

还有问题：

1 是颜色问题，可以着上颜色

２是列标（即listview1的第一列）如果双击清空，如果再进行操作的话，就会出现问题

另外使　on error resume next 先让这句不起作用，多测试几次．

第一个问题：不明白。好像里面不存在涉及颜色的地方啊？

第二个问题修改：ListView1.LabelEdit = 1 '内容不可修改

office2008 · 发表于 2008-8-31 15:42

呵呵,有点小窍门,把 ListView1.LabelEdit = 1 放在 Private Sub UserForm_Initialize() 里没起作用

应该放在Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)里,意思明白了

颜色是我自己想添的 ,一行兰色一行黑色,,listview版本必须 6.0

呵呵,是没什么问题了

fecmen · 发表于 2008-8-31 17:21

QUOTE:

以下是引用office2008在2008-8-31 15:42:00的发言：

呵呵,有点小窍门,把 ListView1.LabelEdit = 1 放在 Private Sub UserForm_Initialize() 里没起作用

应该放在Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)里,意思明白了

颜色是我自己想添的 ,一行兰色一行黑色,,listview版本必须 6.0

呵呵,是没什么问题了

不会呀，把 ListView1.LabelEdit = 1 放在 Private Sub UserForm_Initialize() 里起作用啊！我试了下，没问题的。

o(∩_∩)o... 颜色做成那样我还没试过呢！要不office2008兄传上，我欣赏下。

wach · 发表于 2010-9-13 17:00

楼主,你好
我是新手!下载了你做表去学习学习!怎么我发现点了删除后下面柜里是没有了!但列表里还有!一看数据库里也还有?

fecmen · 发表于 2010-9-19 20:20

你进入Excel的VBE界面，通过工具菜单中的引用下C:WINDOWS\system32路径下的MSCOMCTL.OCX 控件便可。

JLF2003 · 发表于 2010-9-19 22:11

点滴知识可以汇成江河。
谢楼主！

fecmen · 发表于 2010-9-21 21:43

以前提到过listview中实现隔行显示不同颜色，今天心血来潮刚做了一个VB版本隔行显示不同颜色的。

fecmen · 发表于 2010-9-22 12:53

改进后的VB版本，增加了更换Listview风格的功能，已集成到鼠标右键菜单中，另改进了Access数据库无数据时，隔行显示失常问题。

[ 本帖最后由 fecmen 于 2010-9-25 20:59 编辑 ]

高度保密 · 发表于 2010-9-22 19:38

楼主把你的VB版本的代码贴一下嘛，让那些帮助你的人和关注你帖子的人也分享一下嘛！

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

再次改进后的VB版本