主题：请教甜老大

    

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目36.foxdb

 没有第十列，就根据_Sortkey去删除，但是这样就有可能误删

 不行。

我测试同步，前提是你先要给 第十列 赋值，或者用 _Sortkey 作为根据去删除啊

 

测试正常啊。

 

http://www.foxtable.com/help/topics/2490.htm

 

 报什么错，贴出自己写的代码

这一段，你的例子不需要用到

 

Case "产品编号"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.OldValue & "'")
        If dr Is Nothing Then 
            dr = DataTables("库存").AddNew()
            dr("产品编号") = e.DataRow("产品编号")
            dr("产品名称") = e.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If

 已经帮你写好了啊。你再加一个DatacolChanged事件就行了啊

 

Dim dr As DataRow = DataTables("表B").Find("第十列 = '" & e.DataRow("_Identify") & "'")
If dr IsNot Nothing Then
    dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If

 1、看我给你的例子；

 

 2、删除全部数据，重新加入数据；

 

 3、肯定符合要求。

看我给你的例子啊，datacolchanged事件加入代码

 

Dim dr As DataRow = DataTables("表B").Find("第十列 = '" & e.DataRow("_Identify") & "'")
If dr IsNot Nothing Then
    dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If