模糊查询，双击录入：灵活的_listview，由众多老师改进！

FXSHENG · 发表于 2010-7-26 09:13

有网友提出:
能不能请高手做一个既可以用鼠标双击，又能用回车来确认选择的问题问题链接:
http://club.excelhome.net/viewth ... p;page=1&extra=

感谢蓝桥玄霜大师的解答:
增加一段代码如下
Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
With ActiveSheet
      .Cells(Selection.Row, Selection.Column).Offset(0, 0) = ListView1.SelectedItem.Text
      .Cells(Selection.Row, Selection.Column).Offset(0, 1) = ListView1.SelectedItem.SubItems(1)
      .Cells(Selection.Row, Selection.Column).Offset(0, 2) = ListView1.SelectedItem.SubItems(2)
      .Cells(Selection.Row, Selection.Column).Offset(0, 3) = ListView1.SelectedItem.SubItems(3)
      End With
      Unload Me
End If
End Sub
同时感谢lapchiu!

[ 本帖最后由 FXSHENG 于 2010-7-26 09:20 编辑 ]

fgwei · 发表于 2010-7-29 20:30

很强,真好用

gzy001 · 发表于 2010-8-1 21:19

谢谢蓝桥，得你多次的帮忙，借在这里再请教一下，能否把查询的结果，再增加一个修改的功能，因为查询的数据有时需要修改内容，谢谢。

longming3 · 发表于 2010-8-2 20:41

兄弟，你的绝对拼装工作台我已经拜读过，总的不错，比较实用，关于查询提点建议，建议多级联查，出入汇总能否优化代码，有点慢，

FXSHENG · 发表于 2010-8-3 07:21

原帖由 longming3 于 2010-8-2 20:41 发表
兄弟，你的绝对拼装工作台我已经拜读过，总的不错，比较实用，关于查询提点建议，建议多级联查，出入汇总能否优化代码，有点慢，

不只兄台一人提到查询反应慢的问题，无耐在下不会写代码，路过的高手没时间去做，所以暂时搁浅了，有兴趣的话，可以试试。
再次感谢!

[ 本帖最后由 FXSHENG 于 2010-8-3 07:23 编辑 ]

gzy001 · 发表于 2010-8-17 18:50

能否把查询的结果，再增加一个修改的功能，因为查询的数据有时需要修改内容，谢谢。

guojianlin1985 · 发表于 2010-8-23 21:50

好东西。留下了。

bibisin · 发表于 2010-8-23 21:57

呵呵，不错，学习了

FXSHENG · 发表于 2010-8-23 22:03

老师您也来了!

camle · 发表于 2010-9-29 13:24

做了一个Vba下的pictureBox,可以给ListView隔行显示不同颜色,用的lz的例子,特来感谢.有兴趣的朋友请移步:VBA下用的PictureBox控件
效果图如下:
PictureBox应用效果图.JPG

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

[求助] 模糊查询，双击录入：灵活的_listview，由众多老师改进！

回复 6楼蓝桥玄霜的帖子

回复 69楼 bibisin 的帖子

[求助] 模糊查询，双击录入：灵活的_listview，由众多老师改进！

回复 6楼 蓝桥玄霜 的帖子

回复 69楼 bibisin 的帖子

回复 6楼蓝桥玄霜的帖子