[求助]]如何在主表插入行的同时，副表中也能插入行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name
    Case "试卷号"
        Dim sjhdr1,sjhdr2,sjhdr3 As DataRow
        If e.OldValue = Nothing Then
            sjhdr1 = DataTables("错误学生与人数统计").find("[试卷号] = '" & e.DataRow("试卷号") & "'")
            sjhdr3 = DataTables("考点频度统计").find("[试卷号] = '" & e.DataRow("试卷号") & "'")
            sjhdr2 = DataTables("考点描述").find("[试卷号] = '" & e.DataRow("试卷号") & "'")
        Else
            sjhdr1 = DataTables("错误学生与人数统计").find("[试卷号] = '" & e.oldvalue & "'")
            sjhdr3 = DataTables("考点频度统计").find("[试卷号] = '" & e.oldvalue & "'")
            sjhdr2 = DataTables("考点描述").find("[试卷号] = '" & e.oldvalue & "'")
        End If
        If sjhdr1 Is Nothing Then sjhdr1 = DataTables("错误学生与人数统计").AddNew
        If sjhdr2 Is Nothing Then sjhdr2 = DataTables("考点频度统计").AddNew
        If sjhdr3 Is Nothing Then sjhdr3 = DataTables("考点描述").AddNew

        sjhdr1("试卷号") = e.DataRow("试卷号")
        sjhdr2("试卷号") = e.DataRow("试卷号")
        sjhdr3("试卷号") = e.DataRow("试卷号")
End Select

主题：[求助]]如何在主表插入行的同时，副表中也能插入行？