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
错误所在事件：自定义函数,初始界面
详细错误信息：
调用的目标发生了异常。
已添加了具有相同键的项。
加好友 
发短信
Post By：2023/11/2 14:17:00 [显示全部帖子]
