Foxtable(狐表)用户栏目专家坐堂 → [求助]数据同步


  共有1998人关注过本帖树形打印复制链接

主题:[求助]数据同步

帅哥哟,离线,有人找我吗?
wldhj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:368 积分:4215 威望:0 精华:0 注册:2013/12/26 18:44:00
[求助]数据同步  发帖心情 Post By:2016/1/5 16:02:00 [显示全部帖子]

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

 

为什么最多只能同步 1270行?

[此贴子已经被作者于2016/1/5 16:02:38编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
wldhj
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:368 积分:4215 威望:0 精华:0 注册:2013/12/26 18:44:00
  发帖心情 Post By:2016/1/5 16:12:00 [显示全部帖子]

哦,说错了,在CurrentChanged中

 

If e.Table.Current IsNot Nothing Then
     Dim Filter As String = "用户 = '" & _UserName & "' and  产品编号 = '" & e.Table.Current("_identify") & "'"
    If  DataTables("库存").Find(Filter) Is Nothing Then
        DataTables("库存").AppendLoad(Filter)
    End If
End If

 

为什么最多只能加载 _identify <=1270 的行?


 回到顶部