以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ListView控件，代码有错。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96619)
--  作者：lihe60
--  发布时间：2017/2/24 14:02:00
--  ListView控件，代码有错。

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current
vr.BackColor = Color.Blue

 

代码放在表事件CurrentChanged

[此贴子已经被作者于2017/2/24 14:04:20编辑过]
--  作者：有点色
--  发布时间：2017/2/24 14:40:00
--  

If Forms("窗口1").Opened Then

Dim lvw As WinForm.ListView = Forms("窗口1").Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current
vr.BackColor = Color.Blue

End If