苏州三木软件科技有限公司

 找回密码
 立即注册
搜索
热搜: 活动
查看: 1569|回复: 7

【求助】子窗体如何代替主表显示

[复制链接]

21

主题

35

帖子

161

积分

注册会员

Rank: 2

积分
161
发表于 2023-3-16 11:07:35 | 显示全部楼层 |阅读模式

如何把子窗体代替主表显示,代替后又如何调出表属性设置

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
回复

使用道具 举报

25

主题

313

帖子

2081

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2081
QQ
发表于 2023-3-16 11:36:26 | 显示全部楼层
要想实现子窗口可以单独打开,需要做以下工作:
1、先正常设置表属性,打开并设置相应的子窗口属性。最重要的一个属性“子窗口独立打开”必须打开。注意:一般情况下我们这个属性是应该设置为False,只有我们遇到了上面几种需求时才设置为True。
2、记录一下主表的TableID属性值,一会有用。
上面的准备工作其实就已经做完了,我们只需要通过下面的代码来打开

  1. '根据TableID来打开相应的子窗体
  2. '第二个参数是筛选条件,如果是系统选项类的功能,可能只有一条数据,所以这个条件可以为空。
  3. '如果是一些单据的话,我们就可以根据情况来设置并筛选出唯一记录来,比如:ID='CK20230316001'
  4. Dim frm As New FormEditSubForm("a2595a522e744cd7b54bc9d189e2b80e","",SubFormTypeEnum.SingleTableForm,CreateControlTypeEnum.RecordGrid)
  5. '定义一个窗体名称
  6. frm.Name="独立打开子窗口名"
  7. '独立模式打开窗口
  8. frm.Show()
  9. '用并列方式打开窗口
  10. frm.ShowType=FormShowType.InDesktopTab
  11. frm.ShowByShowType()
复制代码

回复

使用道具 举报

21

主题

35

帖子

161

积分

注册会员

Rank: 2

积分
161
 楼主| 发表于 2023-3-16 11:55:20 | 显示全部楼层
如果要重设表属性的话是否要回到原来主表那里设置主表
回复

使用道具 举报

25

主题

313

帖子

2081

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2081
QQ
发表于 2023-3-16 12:22:13 | 显示全部楼层
是的
回复

使用道具 举报

21

主题

35

帖子

161

积分

注册会员

Rank: 2

积分
161
 楼主| 发表于 2023-4-13 12:32:35 | 显示全部楼层
现在用是可以了但是还是出现一些状况。


关闭上面窗口后,再重现打开窗口出现下面状况。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
回复

使用道具 举报

25

主题

313

帖子

2081

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2081
QQ
发表于 2023-4-13 13:49:16 | 显示全部楼层
"此名称的窗口已经打开”的提示是因为子窗口为了性能考虑,一般的关闭都只是隐藏,我们在使用的时候会将窗体保存到一个变量上去,后期如果已经打开过的窗体就直接显示即可。如果你这种单独打开使用的就没有必要还隐藏保留了,可以考虑通过HideFormWhenClose属性关闭这个功能。

  1. Dim frm As New FormEditSubForm("a2595a522e744cd7b54bc9d189e2b80e","",SubFormTypeEnum.SingleTableForm,CreateControlTypeEnum.RecordGrid)
  2. '定义一个窗体名称
  3. frm.Name="独立打开子窗口名"
  4. '可以将窗体的隐藏代替真正关闭的属性关闭,这样我们关闭窗口时就真正的关闭了
  5. frm.HideFormWhenClose=False
  6. '独立模式打开窗口
  7. frm.Show()
复制代码




回复

使用道具 举报

21

主题

35

帖子

161

积分

注册会员

Rank: 2

积分
161
 楼主| 发表于 2023-4-13 14:13:48 | 显示全部楼层
使用frm.HideFormWhenClose=False又出现下面问题

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
回复

使用道具 举报

25

主题

313

帖子

2081

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2081
QQ
发表于 2023-4-13 14:34:20 | 显示全部楼层
这个要等修复
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|苏州三木软件科技有限公司 ( 苏ICP备2022038390号 )

苏公网安备 32058502010732号

GMT+8, 2024-10-4 08:51 , Processed in 0.085488 second(s), 22 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表