Foxtable(狐表)用户栏目专家坐堂 → 实现数据同步


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

主题:实现数据同步

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/11/5 16:32:00 [显示全部帖子]

这种问题并不难,但是我建议你修改设计,采用关联的形式。

就是做成两个表,就像订单表和订单明细表一样,一个订单对应有多个订单明细。

表结构的设计,一定要清晰明了,你这种设计很不规范。

 

 

 

 


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/11/6 9:10:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目12.rar


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/11/6 22:13:00 [显示全部帖子]

只需修改代码,将材质的条件加进去即可:

 

If e.DataRow.Isnull("通打计划号") = False Then
    Select Case e.DataCol.Name
        Case "半成品","成品","装窑"
            For Each dr As DataRow In e.DataTable.Select("通打计划号 = '"  & e.DataRow("通打计划号") & "' And 材质 = '"  & e.DataRow("材质") & "'")
                dr(e.DataCol.Name) = e.NewValue
            Next
        Case "合同数量"
            Dim v As Integer = e.DataTable.Compute("Sum(合同数量)","通打计划号 = '"  & e.DataRow("通打计划号") & "' And 材质 = '"  & e.DataRow("材质") & "'")
            For Each dr As DataRow In e.DataTable.Select("通打计划号 = '"  & e.DataRow("通打计划号") & "' And 材质 = '"  & e.DataRow("材质") & "'")
                dr("通打数量") = v
            Next
        Case "通打计划号","材质"
            e.DataTable.DataCols("半成品").RaiseDataColChanged(e.DataRow)
            e.DataTable.DataCols("成品").RaiseDataColChanged(e.DataRow)
            e.DataTable.DataCols("装窑").RaiseDataColChanged(e.DataRow)
            e.DataTable.DataCols("合同数量").RaiseDataColChanged(e.DataRow)
    End Select
End If

 

[此贴子已经被作者于2011-11-6 22:21:00编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/12/6 14:14:00 [显示全部帖子]


 回到顶部