'第一步:动态增加各字段
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) 就会出错！
请老师指教！！
加好友 
发短信
Post By：2016/11/1 18:33:00 [显示全部帖子]
