[求助]如何去掉子数据表

tmtony

在数据表中有方法去掉子数据表，但在数据表窗体上我找不到去掉子数据表的方法，请教一下大家．

我希望在主数据表窗体上不显示＋号及子数据表



附例子数据库：

一点通

不是很明白你的意思,直接删除子窗体不行吗？

sgrshh29

这样应该可以吧？

Me.frmContractMaterial.SourceObject = ""
Me.frmContractMaterial.LinkChildFields = ""
Me.frmContractMaterial.LinkMasterFields = ""

tmtony

因为这个窗体有两种显示方式,一种是数据表,一种是窗体视图.
我只需要在数据表显示时要删除子数据表,但在以窗体视图显示时要保留子窗体.而且主子窗体一定要有链接.

sgrshh29

不知道站长用什么方法打开二种不同形式的窗体，你看这样可以吗？

eyewitnes

可不可以在加载窗体的时候数据表子表的链接读入到变量里面，然后判断窗体是属于数据表格式还是窗体格式，是数据表则清空原有的链接，窗体关闭的时候再从变量里读取并回写？

tmtony

非常感谢sgrshh29和eyewitnes
我使用一个子窗体同时作为数据表和窗体视图, 即将传统的数据表子窗体与编辑窗体用一个窗体来实现, 也一直是根据窗体是数据表视图 还是窗体视图 用程序来改变的外观和功能. 但我一直以为Access本身有一个方法可以删除子数据表.所以从来未从程序的角度来想办法. 你们的想法让我如梦方醒. 非常感谢两位

我的方法使用一个编辑窗体, 用程序改变它的打开方式.这样就节省了一个查询子窗体.

   '如果是录入窗体
    If Me.CurrentView = 1 Then
        Me.ScrollBars = 0   '则隐藏滚动条
        '如果是打开时即可编辑
        ' Me.RecordSource = "SELECT * FROM tblTips WHERE FIsClass=0"
        If mblnOpenAllowEdit Then
            '设置允许编辑 删除 新增
            SetEditStatus True
            '不需要编辑按钮了,设置标记标题
            cmdEdit.Visible = False
            lblModify.Caption = GetLangValue("AllowEdit")    ' "可修改"
        Else
            '否则设置不允许编辑 删除 新增
            SetEditStatus False
            '显示编辑按钮
            cmdEdit.Visible = True
        End If
        '获取窗体新增默认值
        Call gt_SetFldDefaultValue(Me)
        
        
    Else
        '如果是数据表窗体,则需要两个滚动条
        Me.ScrollBars = 3
        '转换两种冒号
        gt_ConvertColon Me, True, True
        ' Me.RecordsetType = 2
        '设置不允许编辑 删除 新增
        Me.AllowAdditions = False
        Me.AllowDeletions = False
        Me.AllowEdits = False
    End If

fan0217

LinkChildFields 属性和LinkMasterFields 属性，在此又有新的用途了。