Foxtable(狐表)用户栏目专家坐堂 → 主窗口双击打开窗口如何实现数据绑定


  共有4640人关注过本帖树形打印复制链接

主题:主窗口双击打开窗口如何实现数据绑定

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/21 16:00:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:报价管理系统.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/21 19:42:00 [显示全部帖子]

 在窗口AfterLoad里面或者双击事件里这样写代码

 

Forms("窗口1").Controls("TextBox1").BindingField = "表名.列名"

[此贴子已经被作者于2014-7-21 19:42:31编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/22 19:03:00 [显示全部帖子]

以下是引用xuke5001在2014-7-22 19:01:00的发言:
我使用动态加载控件,代码绑定列,都可以实现,但是当修改完之后确认是,报错,说是找不到“控件”

 

你具体怎么做的把你做的发上来看看。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/22 21:14:00 [显示全部帖子]

以下是引用xuke5001在2014-7-22 21:12:00的发言:

又有新问题了,如何实现公用更具不同的主窗口表,在公用修改窗口自动添加控件,实现读取、修改功能

 

那你就要先得到表名,然后循环所有的列,每一列生成一个控件,然后绑定。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/22 21:26:00 [显示全部帖子]

 参考

 

http://www.foxtable.com/help/topics/1409.htm

 

http://www.foxtable.com/help/topics/1919.htm

 

[此贴子已经被作者于2014-7-22 21:26:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/22 21:29:00 [显示全部帖子]

 类似代码,排版自己修改一下。

 

For Each c As Col In Tables("表A").cols
    Dim txt As WinForm.TextBox
    txt = Forms("窗口1").CreateControl("TextBox1", ControlTypeEnum.TextBox)
    txt.Left = 100 * c.Index
    txt.Top = 100
    Forms("窗口1").AddControl(txt)
    txt.BindingField = c.Table.Name & "." & c.Name '必须先将控件加入到窗口或容器中,才能设置绑定字段
Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/22 23:11:00 [显示全部帖子]

 标签也可以

 

For Each c As Col In Tables("表A").cols
    Dim txt As WinForm.Label
    txt = Forms("窗口1").CreateControl("TextBox1", ControlTypeEnum.Label)
    txt.Left = 100 * c.Index
    txt.Top = 100
    Forms("窗口1").AddControl(txt)
    txt.Text = c.Name '必须先将控件加入到窗口或容器中,才能设置绑定字段
Next


 回到顶部