主题：新增行问题请教

 写了下面的新增行代码，但发现新增的同时，会对原有的1行或多行发生自动修改，不知错在哪里？

 

请不要说需要提供实例，因为我直接在生产环境写的。

 

Tables("服务信息").AddNew()
        With Tables("服务信息")
            Dim dm As String
            dm =  Tables("客户信息").Current("客户代码")
            If dm IsNot Nothing
                .current("客户代码") =  Tables("客户信息").Current("客户代码")
                .current("客户名称") =  Tables("客户信息").Current("客户名称")
            End If
        End With

 

 

此主题相关图片如下：捕获.jpg