Foxtable(狐表)用户栏目专家坐堂 → [求助] 动态添加窗口表控件出错误!


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

主题:[求助] 动态添加窗口表控件出错误!

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


加好友 发短信
等级:一尾狐 帖子:455 积分:3756 威望:0 精华:0 注册:2012/2/8 14:19:00
[求助] 动态添加窗口表控件出错误!  发帖心情 Post By:2016/11/1 18:33:00 [只看该作者]

'第一步:动态增加各字段

Dim PGS As WinForm.TabControl = e.Form.Controls("TabControl2")
pgs.TabPages.Clear

Dim PgText As List(of String) = DataTables("字典").GetValues("字段名称","","_Identify")
For Each pg As String In PgText
    pgs.TabPages.Add(pg,pg)
    Dim t As WinForm.Table = e.Form.CreateTable(pg,"词典",True)
    pgs.TabPages(pg).AddControl(t)
    t.Dock = windows.Forms.Dockstyle.fill
    Tables(t.Table.Name).ExtendLastCol = True
    Tables(t.Table.Name).Filter = "字段名称 = '" & pg & "'"
    Tables(t.Table.Name).SetColVisibleWidth("代码|100名称|100")
Next



执行到 pgs.TabPages(pg).AddControl(t) 就会出错!
请老师指教!!

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


加好友 发短信
等级:超级版主 帖子:107846 积分:548581 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/1 20:44:00 [只看该作者]

代码测试没有问题,提示什么错误?

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/11/2 8:47:00 [只看该作者]

 是不是table的name同名了?或者是重复添加了?

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


加好友 发短信
等级:一尾狐 帖子:455 积分:3756 威望:0 精华:0 注册:2012/2/8 14:19:00
  发帖心情 Post By:2016/11/5 0:23:00 [只看该作者]

Dim t As WinForm.Table = e.Form.CreateTable(pg,"词典",True)

原来将“字典”误打成“词典”了!谢谢老师!

 回到顶部