以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态增加控件重复值提取的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121440)
--  作者：douglas738888
--  发布时间：2018/7/6 11:10:00
--  动态增加控件重复值提取的问题

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

[此贴子已经被作者于2018/7/6 11:10:19编辑过]
--  作者：有点甜
--  发布时间：2018/7/6 11:38:00
--  

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