主题：listview的问题(已联系客服远程解决)

        messagebox.show(nm)  ' 看看是不是有Defalut  是不是你NMS里面本来就有. 到表里删除它
        Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()
        '====
        Dim dr As DataRow = DataTables("授权表").SQLFind("模块名称 = '" & nm & "' And 对象窗口 is NUll And 对象名称 Is Null")
        If dr IsNot Nothing
            Dim uss As String = dr("被授权人")
            If uss.Contains(_User) = True OrElse uss.Contains(qcr("职位")) = True
                'MessageBox.show(nm)
                grp.Name = nm
                grp.Text = nm
            End If
        End If
        '===
    Next

不增加肯定不会自己出现的. 既然注译了不增加到分组.那么肯定是在遍历过程中增加了. 调试一下.是否遍历过程中有 空值 或者Defalut