Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样把材料信息添加到两个表中


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

主题：怎样把材料信息添加到两个表中
美女呀，离线，留言给我吧！
lzz4513
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：138 威望：0 精华：0 注册：2015/5/27 8:58:00 		怎样把材料信息添加到两个表中  发帖心情 Post By：2015/6/30 11:24:00 [只看该作者]

比如有两个表，一个是总材料表，一个是直接材料表，一个是辅助材料表，我要把相关器件信息添加到直接材料表中，同时在总表中也添加，怎么实现，谢谢。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/30 11:25:00 [只看该作者]


 回到顶部
美女呀，离线，留言给我吧！
lzz4513
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：138 威望：0 精华：0 注册：2015/5/27 8:58:00 		  发帖心情 Post By：2015/6/30 11:31:00 [只看该作者]

谢谢高手

 回到顶部
美女呀，离线，留言给我吧！
lzz4513
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：138 威望：0 精华：0 注册：2015/5/27 8:58:00 		不同表之间数据同步的问题  发帖心情 Post By：2015/7/1 16:02:00 [只看该作者]

http://www.foxtable.com/help/index.html?n=2490.htm，我按照上面的方法做了，出现了问题，见图片问题3，怎么回事呢高手。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/1 16:05:00 [只看该作者]


 回到顶部
美女呀，离线，留言给我吧！
lzz4513
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：138 威望：0 精华：0 注册：2015/5/27 8:58:00 		不同表同步  发帖心情 Post By：2015/7/1 16:16:00 [只看该作者]

请查看附件
图片点击可在新窗口打开查看此主题相关图片如下：问题1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：问题2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：问题3.jpg
图片点击可在新窗口打开查看
谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2015/7/1 16:45:00 [只看该作者]

代码看不出问题，可以将文件法发上来看看。
另外抓错误提示截图的时候，最好先勾选”显示详细信息“，然后在截图
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/1 17:28: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("产品规格")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
    Case "产品名称","产品规格"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
        If dr IsNot Nothing Then
            dr("产品名称") = e.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
        End If
End Select
 回到顶部
美女呀，离线，留言给我吧！
lzz4513
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：138 威望：0 精华：0 注册：2015/5/27 8:58:00 		  发帖心情 Post By：2015/7/2 9:54: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("单价")
        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
是不是大类和二类结合的时候不可以这样用啊，
先谢谢大红袍了
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/2 9:56:00 [只看该作者]

 上传具体例子说明怎么不能用
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04504 秒, 4 次数据查询