- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助，动态生成控件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89381)
-- 发布时间：2016/8/20 12:19:00
-- 求助，动态生成控件
如何动态生成控件，控件的名称怎么定义
我想根据表A的行数自动生成WinForm.Label 的数量
每个label对应一行
label.Text 的值取 车次列的值 位置根据时间列 调整
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试114.foxdb |
-- 发布时间：2016/8/20 12:22:00
--
参考：http://www.foxtable.com/webhelp/scr/1409.htm
-- 发布时间：2016/8/20 14:24:00
--
Dim biao As DataTable = DataTables("表A")
Dim aa As String
aa=biao.DataRows.Count
If aa > =0 Then
Dim Sum As Integer
Dim i As Integer = 0
Do While i < aa
请问添加控件怎么写？？谢谢，怎么根据行数添加控件数
i = i + 1
Loop
End If
-- 发布时间：2016/8/20 14:31:00
--
For i As Integer = 0 To Tables("表A").Rows.Count - 1
Dim lbl As WinForm.Label
lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text = Tables("表A").Rows(i)("车次")
lbl.Left = 100
lbl.Top = 100 + i*50
e.Form.AddControl(lbl)
Next