主题：动态增加控件重复值提取的问题

请教老师，下面动态增加控件代码如何修改能执行帮助例子的这种效果，不知道如何转换字符数组集合与Integer的转换了

 

动态增加控件后想得到的效果             现在代码生成的效果是

 

造价部|小米                                   造价部小米

造价部|小龙                                   市场部小龙

造价部|小刘                                           小刘

市场部|小吴                                           小吴

 

帮助例子

Dim Arys As List(Of String()) = DataTables("窗口2_Table1").GetValues("审批部门|审批人员") '字符数组集合

 

 

动态增加控件

Dim ls As List(Of String) = DataTables("窗口2_Table1").GetValues("审批部门","[审批类别] = '执行会审'","拟文_时间")  '字符集合
Dim t As Double = 0
Dim l As Double = 0
Dim m As Integer = ls.Count Mod 1

For i As Integer = 0 To ls.Count - 1 
    Dim btn As WinForm.Label
    btn = e.Form.CreateControl("Label" & ls(i), ControlTypeEnum.Label)
    btn.Text = ls(i)
    btn.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

    If i = 0 Then
        t = 75 '100
        l = 0
    Else If i Mod 1 = 0 
        t + = 40 '150
        l = 0
    Else
        l + = 300 
    End If
    btn.Width = 110
    'btn.Autosize = True
    btn.BackColor = Color.Gainsboro
    btn.Height = 30
    btn.Left = l + 350
    btn.Top = t
    'e.Form.AddControl(btn)
    e.Form.Controls("Panel1").AddControl(btn)
Next

Dim ls As List(Of String()) = DataTables("窗口2_Table1").GetValues("审批部门|审批人员","[审批类别] = '执行会审'","拟文_时间")  '字符集合
Dim t As Double = 0
Dim l As Double = 0
Dim m As Integer = ls.Count Mod 1

For i As Integer = 0 To ls.Count - 1
    Dim btn As WinForm.Label
    btn = e.Form.CreateControl("Label" & ls(i)(0) & "|" & ls(i)(1), ControlTypeEnum.Label)
    btn.Text = ls(i)(0) & "|" & ls(i)(1)
    btn.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    If i = 0 Then
        t = 75 '100
        l = 0
    Else If i Mod 1 = 0
        t + = 40 '150
        l = 0
    Else
        l + = 300
    End If
    btn.Width = 110
    'btn.Autosize = True
    btn.BackColor = Color.Gainsboro
    btn.Height = 30
    btn.Left = l + 350
    btn.Top = t
    'e.Form.AddControl(btn)
    e.Form.Controls("Panel1").AddControl(btn)
Next