以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 未加载表的数据如何同步？ (http://foxtable.net/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
--
哦，谢谢大红袍老师，我再试试！
|