以文本方式查看主题

-  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=74571)
--  作者：lvfox
--  发布时间：2015/9/14 13:56:00
--  未加载表的数据如何同步？

请教:帮助中，非关联表数据同步的例子，试了一下，如果‘库存表’为外部表，加载后可以同步，如果未加载库存表，‘产品表’变动则‘库存表’不能同步；如果将帮助中的datatables("库存").Find代码改成 SqlFind 也不行，后果是加载“库存表”后还反倒不能同步了，是么原因啊？

 

Case "产品名称","产品规格"
Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.DataRow("产品编号") & "\'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
--  作者：大红袍
--  发布时间：2015/9/14 14:09:00
--  

Case "产品名称","产品规格"
    Dim dr As DataRow = DataTables("库存").sqlFind("产品编号 = \'" & e.DataRow("产品编号") & "\'")
    If dr IsNot Nothing Then
        dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

        dr.Save
    End If
End Select
--  作者：大红袍
--  发布时间：2015/9/14 14:11:00
--  

Case "产品名称","产品规格"
    Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.DataRow("产品编号") & "\'")
    If dr IsNot Nothing Then
        dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
    Else
        dr = DataTables("库存").sqlFind("产品编号 = \'" & e.DataRow("产品编号") & "\'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
            dr.Save
        End If
    End If
End Select
--  作者：lvfox
--  发布时间：2015/9/14 16:22:00
--  
哦，谢谢大红袍老师，我再试试！