Foxtable(狐表)用户栏目专家坐堂 → 在分页集合版面动态添加的表如何继承基本表的表结构


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

主题:在分页集合版面动态添加的表如何继承基本表的表结构

美女呀,离线,留言给我吧!
采菊东篱下
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10368 威望:0 精华:0 注册:2019/4/6 8:45:00
在分页集合版面动态添加的表如何继承基本表的表结构  发帖心情 Post By: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编辑过]

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


加好友 发短信
等级:超级版主 帖子:106178 积分:540007 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/29 12:05:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10368 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By: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

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10368 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/29 15:55:00 [只看该作者]

tbl.Table.Cols("性别").Combolist = "男|女"


 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10368 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/29 15:56:00 [只看该作者]

这样可以了。

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


加好友 发短信
等级:超级版主 帖子:106178 积分:540007 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/29 16:04:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10368 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/29 16:17:00 [只看该作者]

能不能把自定义下拉目录树也加到动态表的列里?跟原来的基本信息表一样。

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


加好友 发短信
等级:超级版主 帖子:106178 积分:540007 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/29 16:40:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/2031.htm

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10368 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/29 16:46:00 [只看该作者]

这是用代码重做的目录树,没有查找功能,我的意思是把窗口上带查找功能的目录树窗口做进去,效果跟原来的基本资料自定义目录树一样。

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10368 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2020/8/29 16:52:00 [只看该作者]

这功能以后引申到会计凭证上,在会计科目栏点击单元格能弹出会计科目目录树窗口,不可能你再做一个吧?

 回到顶部
总数 123 1 2 3 4 5 6 7 8 9 10 下一页 ..13