以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码错误，帮忙看一下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188962)
--  作者：夜点蚊香
--  发布时间：2023/11/2 14:17:00
--  代码错误，帮忙看一下
Dim Customers As List(Of String)  \' 定义一个不重复的集合
        
        Customers = dt1.GetUniqueValues("", "一级菜单")  \'筛选不重复的名称形成集合
        For Each Customer As String In Customers
            With wb.AddListGroup("", Customer,Customer) \'生成组
                With wb.AddGrid("","g13")  \'生成内部菜单
                    \'遍历数据库菜单,生成 weui内部菜单.++++++++++++++++++++
                    For Each rrmx1 As DataRow In dt1.DataRows
                        \'With wb.AddListGroup("123", "lsg1","简单列表")
                        \'With wb.AddGrid(int1,int1)
                        .Add(rrmx1("二级菜单"),rrmx1("二级菜单"), "./easyui/menuicon/" & rrmx1("二级图标") & ".jpg",rrmx1("href") &".htm")
                        \'int1 = int1 + 1
                        \'End With
                    Next
                End With
            End With
        Next

报错内容
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：自定义函数,初始界面
详细错误信息：
调用的目标发生了异常。
已添加了具有相同键的项。
--  作者：有点蓝
--  发布时间：2023/11/2 14:35:00
--  
控件名称重复了

With wb.AddGrid("","g13") 
--  作者：夜点蚊香
--  发布时间：2023/11/2 15:18:00
--  
已经解决，谢谢