[5分]如何用vba代码，对数据表 实现 插入子数据表 的功能？

如果是普通窗体,且有一个选项组叫做“Frame6”，子表为主窗体上的子窗体控件名称，Label5为子窗体控件的标签。主窗体的“ID”字段与子窗体的“编号”字段链接

Private Sub Frame6_AfterUpdate()
    Select Case Frame6
    Case 1
        Me.子表.SourceObject = "子表1"
        Me.Label5.Caption = "子表1"
    Case 2
        Me.子表.SourceObject = "子表2"
        Me.Label5.Caption = "子表2"
    Case 3
        Me.子表.SourceObject = "子表3"
        Me.Label5.Caption = "子表3"
    End Select
    子表.LinkMasterFields = "id"
    子表.LinkChildFields = "编号"
   ' 子表.Form.SubdatasheetExpanded = False
End Sub
“子表1”、“子表2”、“子表3”分别为做好的窗体名称，分别对应不同的表，这些表的“编号”字段是外键，与主表的主键字段“ID”对应