Foxtable(狐表)用户栏目专家坐堂 → 两个表数据同步删除‘增加


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

主题:两个表数据同步删除‘增加

美女呀,离线,留言给我吧!
秦昌丽
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:51 积分:361 威望:0 精华:0 注册:2013/6/5 10:33:00
两个表数据同步删除‘增加  发帖心情 Post By:2013/6/5 10:37:00 [显示全部帖子]

狐爸爸,您好,我想将数据库中的两个数据表中的数据同步增加删除,怎么办?就是两个表内相同的内容同步增加,不同列不增加

 回到顶部
美女呀,离线,留言给我吧!
秦昌丽
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:51 积分:361 威望:0 精华:0 注册:2013/6/5 10:33:00
  发帖心情 Post By:2013/6/5 11:00:00 [显示全部帖子]

我用的是外部数据源,这样好像不行啊

 

 

Select Case e.DataCol.name
   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("生产调度令号")
             dr("任务名称") = e.DataRow("任务名称")
             dr("计划开始日期") = e.DataRow("计划开始日期")
             dr("计划完工日期") = e.DataRow("计划完工日期")
             dr("计划工期") = e.DataRow("计划工期")
         Else
             dr("接单日期") = e.DataRow("接单日期")
        End If
     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

 

 

 

 

 


 回到顶部
美女呀,离线,留言给我吧!
秦昌丽
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:51 积分:361 威望:0 精华:0 注册:2013/6/5 10:33:00
  发帖心情 Post By:2013/6/5 11:06:00 [显示全部帖子]

表属性 里面的事件Datacolchanged

 回到顶部
美女呀,离线,留言给我吧!
秦昌丽
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:51 积分:361 威望:0 精华:0 注册:2013/6/5 10:33:00
  发帖心情 Post By:2013/6/5 11:13:00 [显示全部帖子]

嗯,我先试试,谢谢大家,灰常感谢

 回到顶部