主题：新增行问

MainTable = Tables("客户信息表")

Tables("客户信息表").AddNew()

Forms("新建客户").Show()

MainTable = Tables("联系人信息表")

Tables("联系人信息表").AddNew()

Forms("新建联系人").Show()

'*****************************在录入项目编号后继承项目跟踪表相关项**************************************

If e.DataCol.Name = "客户编号" Then

    If e.NewValue Is Nothing Then

        'e.DataRow("项目名称") = Nothing

        e.DataRow("所属客户名称") = Nothing

        e.DataRow("详细地址") = Nothing

        e.DataRow("固定电话") = Nothing

        e.DataRow("传真") = Nothing

    Else

        Dim dr As DataRow

        dr = DataTables("客户信息表").Find("[编号] = '" & e.NewValue & "'")

        If dr IsNot Nothing

            

            e.DataRow("所属客户名称") = dr("客户名称")

            e.DataRow("详细地址")= dr("详细地址") 'dr为基础表的列

            e.DataRow("固定电话")= dr("固定电话") 'dr为基础表的列

            e.DataRow("传真")= dr("传真") 'dr为基础表的列

        End If

    End If

End If