请教大师指点：动态增加多个同样的控件。谢谢！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教大师指点：动态增加多个同样的控件。谢谢！

共有1784人关注过本帖树形打印复制链接主题：请教大师指点：动态增加多个同样的控件。谢谢！

jackyfashion

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：5184 威望：0 精华：0 注册：2013/10/7 22:27:00

请教大师指点：动态增加多个同样的控件。谢谢！ 发帖心情

Post By：2017/2/19 16:16:00 [只看该作者]

各位大师：你们好！

我有一个订单表，好多行，相在窗口动态增加按钮件，订单表有几行就增加几个控件，同时每个控件绑定一行的数量列，如果有100行那我下面的代码就要算成样写，谢谢指点！！！

Dim txt As WinForm.TextBox
txt = e.Form.CreateControl("TextBox1", ControlTypeEnum.TextBox)
txt.Left = 100
txt.Top = 100
e.Form.AddControl(txt)
txt.BindingField = "订单.数量"

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/19 20:34:00 [只看该作者]

For Each r As Row In Tables("表A").rows
    Dim txt As WinForm.TextBox
    txt = e.Form.CreateControl("TextBox" & r.index, ControlTypeEnum.TextBox)
    txt.Left = 100
    txt.Top = 50*r.index + 100
    e.Form.AddControl(txt)
Next