- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 在分页集合版面动态添加的表如何继承基本表的表结构 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153964)
-- 发布时间：2020/8/29 12:02:00
-- 在分页集合版面动态添加的表如何继承基本表的表结构
不建立关联，能动态生成一个与原表结构一样，但没数据的空表作为录入表吗？我这样写生成的结构与原表相同，但原表的某些列设置的下拉选项没有了。
Dim tbl As WinForm.Table
Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
If tab.TabPages.Contains("基本信息录入") = False Then
tab.TabPages.Add("基本信息录入","基本信息录入")
tbl = Forms("主窗口").CreateSQLTable("基本信息录入","Select * Fro m {基本信息} Where [棋赛名称] Is Null","")
tbl.SetBounds(0, 0, 1100, 580)
Forms("主窗口").Controls("TabControl1").Tabpages("基本信息录入").AddControl(tbl)
Forms("主窗口").Controls("TabControl1").SelectedIndex = tab.TabPages.count + 1
Else
tbl = Forms("主窗口").Controls("基本信息录入")
End If
tbl.Table.SetColVisibleWidth(Tables("基本信息").GetColVisibleWidth())
Dim nr As DataRow = tbl.Table.DataTable.AddNew()
tbl.Table.AutoAddNew = True
[此贴子已经被作者于2020/8/29 20:46:10编辑过]
-- 发布时间：2020/8/29 12:05:00
--
使用代码重新设置：http://www.foxtable.com/webhelp/topics/1356.htm
-- 发布时间：2020/8/29 14:42:00
--
这样写报错
If tbl.Table.IsFocusCell Then
If tbl.Col.Name = "性别" Then
Dim dr As DataRow
If dr IsNot Nothing
tbl.Col.ComboList = "男|女"
End If
End If
End If
-- 发布时间：2020/8/29 15:55:00
--
tbl.Table.Cols("性别").Combolist = "男|女"
-- 发布时间：2020/8/29 15:56:00
--
这样可以了。
-- 发布时间：2020/8/29 16:04:00
--
-- 发布时间：2020/8/29 16:17:00
--
能不能把自定义下拉目录树也加到动态表的列里？跟原来的基本信息表一样。
-- 发布时间：2020/8/29 16:40:00
--
http://www.foxtable.com/webhelp/topics/2031.htm
-- 发布时间：2020/8/29 16:46:00
--
这是用代码重做的目录树，没有查找功能，我的意思是把窗口上带查找功能的目录树窗口做进去，效果跟原来的基本资料自定义目录树一样。
-- 发布时间：2020/8/29 16:52:00
--
这功能以后引申到会计凭证上，在会计科目栏点击单元格能弹出会计科目目录树窗口，不可能你再做一个吧？