以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助 动态生成控件及动态绑动例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99280)
--  作者：jackyfashion
--  发布时间：2017/4/16 13:18:00
--  求助 动态生成控件及动态绑动例
您好!老师:
下边的代码只能绑定一行,能不能绑定所有的行?谢谢!
For Each r As Row In Tables("qrymyf").rows
    Dim txt As WinForm.TextBox
    txt = e.Form.CreateControl("TextBox" & r.index, ControlTypeEnum.TextBox)
    txt.BindingField = "qrymyf.ffikgn"
    txt.Left = 100
    txt.Top = 50*r.index + 100
    e.Form.AddControl(txt)
Next
谢谢指教!!!
--  作者：有点蓝
--  发布时间：2017/4/16 13:36:00
--  
只能绑定一行（选中的行），没有办法同时绑定所有的行。想要在控件显示多行的数据，只能是手动赋值和取值，不能绑定
--  作者：jackyfashion
--  发布时间：2017/4/16 16:55:00
--  
您 好!老师:
是否可以用循环动态绑定列?
谢谢!
--  作者：jackyfashion
--  发布时间：2017/4/16 16:58:00
--  
您 好!老师:
能不能动态循环赋值?
谢谢!
--  作者：rjh4078
--  发布时间：2017/4/16 20:03:00
--  
For  i As Integer=0 To Tables("qrymyf").rows.count-1
    Dim txt As WinForm.TextBox
    txt = e.Form.CreateControl("TextBox" & i, ControlTypeEnum.TextBox)
    txt.value = Tables("表a").rows(i)("ffikgn")
    txt.Left = 100
    txt.Top = 50*i + 100
    e.Form.AddControl(txt)
Next
--  作者：jackyfashion
--  发布时间：2017/4/16 21:54:00
--  
谢谢老师!!!
--  作者：jackyfashion
--  发布时间：2017/4/16 22:28:00
--  
谢谢老师!
可以动态加载控件及所有的行
现在是控件的太小了,什么代码可以调整控件大小,请您指教!!!
谢谢老师您的帮助!!!谢谢!!!
--  作者：jackyfashion
--  发布时间：2017/4/16 22:37:00
--  
老师您好!控件大小设置找到了,谢谢!