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

请教老师，下面第二段代码根据不重复值能动态生成控件

如果是根据重复值，动态增加控件，第一段代码应该怎样写入到第二段代码中，这种有筛选，有集合的情况不知道怎样写了？？

第一段代码：

Dim drs As List(Of DataRow) = DataTables(str4).SQLSelect("[主计划编号] = 'ZJH20181220001'")
For Each dr As DataRow In drs
Dim st As String = dr("任务安排_专业")
btn.Text = st  '有问题只能显示最后一个专业
Next

第二段代码：

Dim ls As List(Of String()) = DataTables(str4).SQLGetValues("任务安排_专业|任务安排_执行人","主计划编号 = '"& str2 &"'","")
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("XLabel" & ls(i)(0) & vbcrlf & ls(i)(1), ControlTypeEnum.Label)
    btn.Text = ls(i)(0) & vbcrlf & ls(i)(1)
    btn.Font = New Font("微软雅黑", 9.5)
    btn.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    If i = 0 Then
        t = 500 '距离顶部
        l = 0
    Else If i Mod 1 = 0
        t  = 50 '竖向间距
        l = 0
    'Else
        'l + = 150 '间隔
    End If
    btn.Width = 120  
    btn.BackColor = Color.Wheat
    btn.Height = 40  
    btn.Left = l 
    btn.Top = t
    e.Form.Controls("Panel1").AddControl(btn)
Next