以文本方式查看主题

-  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=90002)

--  作者:沦落深蓝
--  发布时间:2016/9/2 23:12:00
--  [求助]关于LISTVIEW分组现实后的修改问题

已经实现了分组显示,但是在根据帮助文件示例,增加按钮后,发现有以下几个问题:

 

1、增加人员后并不能立即进行分组,要退出后重新进入才行;

2、删除只能删除新增加的成员,而原成员无法删除;

3、修改不起作用,无法对原成员进行修改;

4、想按照:支部书记,支部委员,普通党员排序,原表是这么排的,但是显示的顺序不一样,怎么改。

 

参考:ListView和数据表的互动   修改的

 

不清楚问题在哪里~~请老师指导

 

 


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

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table

[此贴子已经被作者于2016/9/2 23:13:04编辑过]

--  作者:有点蓝
--  发布时间:2016/9/3 9:33:00
--  
1、
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add()
    vr.Group = "党内职务"
2、3、
For Each dr As DataRow In DataTables("党组织建设表").DataRows
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    r.Group = dr("党内职务") \'指定所属分组
    For Each cl As String In cls \'逐列取值
        r(cl) = dr(cl)
    Next
    r.Tag = dr
Next
4、

For Each zh As String In DataTables("党组织建设表").GetValues("党内职务",,"序号") \'增加分组
    Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()
    grp.Name = zh
    grp.Text = zh
Next
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试(3).table



--  作者:沦落深蓝
--  发布时间:2016/9/3 10:17:00
--  

非常感谢老师,感觉又学到了不少知识,也找到了错误原因图片点击可在新窗口打开查看