|
Dim drs As List(Of DataRow) = DataTables(str4).SQLSelect("[主计划编号] = 'ZJH20181220001'")
Dim t As Double = 0
Dim l As Double = 0
For i As Integer = 0 To drs.Count - 1
Dim btn As WinForm.Label
btn = e.Form.CreateControl("XLabel" & drs(i)("某列"), ControlTypeEnum.Label)
btn.Text = drs(i)("任务安排_专业")
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
|
加好友 
发短信
Post By：2019/6/19 18:15:00 [显示全部帖子]
