以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ListView以平铺方式显示员工的照片以及详细信息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192013)

--  作者:nxdx112
--  发布时间:2024/5/23 16:26:00
--  ListView以平铺方式显示员工的照片以及详细信息
ListView以平铺方式显示员工的照片以及详细信息:1 怎样信息居中显示,而不是靠左   2 怎样设置信息的颜色

lvw.Columns("班级1").TextAlign = HorizontalAlignment.Center  不起作用


图片点击可在新窗口打开查看此主题相关图片如下:01.png
图片点击可在新窗口打开查看


http://www.foxtable.com/webhelp/index.htm?page=0814.htm

--  作者:有点蓝
--  发布时间:2024/5/23 16:35:00
--  
无法控制
--  作者:nxdx112
--  发布时间:2024/5/24 9:07:00
--  
http://www.foxtable.com/webhelp/index.htm?page=0814.htm

分组显示数据,现在   RowActivate  想单击时,下面对应的表能筛选出对应的人的数据  ,下面的代码没有任何反应,应该如何修改



Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

Dim vr As WinForm.ListViewRow = lvw.Current \'获取ListView的当前行

If vr Is Nothing Then \'如果不存在当前行,也就是内有选定任何一行

    Return

End If

Dim dr As DataRow = vr.tag \'获取此行对应的DataRow

Tables("学生信息").filter = "性别=\'男\' and 学生姓名=\'" & dr("学生姓名") & "\'"


--  作者:有点蓝
--  发布时间:2024/5/24 9:10:00
--  
调试看看

msgbox("性别=\'男\' and 学生姓名=\'" & dr("学生姓名") & "\'")

--  作者:nxdx112
--  发布时间:2024/5/24 9:19:00
--  
Object reference not set to an instance of an object.
--  作者:有点蓝
--  发布时间:2024/5/24 9:23:00
--  
生成listview的时候要注意绑定tag:http://www.foxtable.com/webhelp/topics/2782.htm

    If dr("性别") = "" Then \'设置分组
        
vr.ImageKey = "Man"
    Else
        
vr.ImageKey = "Woman"
    
End If
    
vr.Tagdr \'将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
Next

--  作者:nxdx112
--  发布时间:2024/5/24 9:32:00
--  
谢谢,就是没有
vr.Tagdr \'将DataRow赋值给ListViewRow的Tag属性,将二者联系起来