以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  新增行问题请教  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=51318)
--  作者：CRM2013
--  发布时间：2014/5/24 9:16:00
--  新增行问题请教

 写了下面的新增行代码，但发现新增的同时，会对原有的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
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2014/5/24 9:19:00
--  
纸上不谈兵,你这样说无异于,帮我修车,但是你不能看我车.


       dim r as row = Tables("服务信息").AddNew()
        With Tables("服务信息")
            Dim dm As String
            dm =  Tables("客户信息").Current("客户代码")
            If dm <> "" then
                r =  Tables("客户信息").Current("客户代码")
                r =  Tables("客户信息").Current("客户名称")
            End If
        End With

试试这样改