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

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

第一段代码：

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