以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 动态添加窗口表控件出错误!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92357)

--  作者:lmlptj
--  发布时间: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) 就会出错!
请老师指教!!

--  作者:有点蓝
--  发布时间:2016/11/1 20:44:00
--  
代码测试没有问题,提示什么错误?
--  作者:有点色
--  发布时间:2016/11/2 8:47:00
--  
 是不是table的name同名了?或者是重复添加了?
--  作者:lmlptj
--  发布时间:2016/11/5 0:23:00
--  
Dim t As WinForm.Table = e.Form.CreateTable(pg,"词典",True)

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